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 {}
Index: openacs-4/packages/xowiki/tcl/lcs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/lcs-procs.tcl,v
diff -u -r1.4 -r1.4.2.1
--- openacs-4/packages/xowiki/tcl/lcs-procs.tcl	13 Sep 2012 16:05:27 -0000	1.4
+++ openacs-4/packages/xowiki/tcl/lcs-procs.tcl	11 Oct 2013 10:14:01 -0000	1.4.2.1
@@ -83,7 +83,7 @@
                  set s [expr { $k + 1 }]
                  while { $max >= $min } {
                      set mid [expr { ( $max + $min ) / 2 }]
-                     set bmid [lindex [lindex $K $mid] 1]
+                     set bmid [lindex $K $mid 1]
                      if { $j == $bmid } {
                          break
                      } elseif { $j < $bmid } {
@@ -97,7 +97,7 @@
                  # Go to the next match point if there is no suitable
                  # candidate.
 
-                 if { $j == [lindex [lindex $K $mid] 1] || $s > $k} {
+                 if { $j == [lindex $K $mid 1] || $s > $k} {
                      continue
                  }