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
                  }