Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.239.2.4 -r1.239.2.5
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	30 Sep 2013 11:37:17 -0000	1.239.2.4
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	11 Oct 2013 10:14:01 -0000	1.239.2.5
@@ -2170,7 +2170,7 @@
     # first entry of the options. This is as well the value, which is
     # returned from the browser in such cases.
     if {[my required] && [my set value] eq ""} {
-      my set value [lindex [lindex [my set options] 0] 1]
+      my set value [lindex [my set options] 0 1]
     }
   }
   enumeration abstract instproc render_input {}