Index: openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl,v
diff -u -N -r1.21 -r1.21.2.1
--- openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	12 Aug 2013 20:01:06 -0000	1.21
+++ openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	29 Sep 2013 20:10:02 -0000	1.21.2.1
@@ -143,10 +143,10 @@
 	return $def
       }
     } elseif {$xp == -1} {
-      set yh [string range $y 0 [expr {$yp-1}]]
+      set yh [string range $y 0 $yp-1]
       return [my __value_compare $x $yh -1]
     } elseif {$yp == -1} {
-      set xh [string range $x 0 [expr {$xp-1}]]
+      set xh [string range $x 0 $xp-1]
       return [my __value_compare $xh $y 1]
     } else {
       set xh [string range $x 0 $xp]