Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -N -r1.72.2.4 -r1.72.2.5
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	27 Sep 2013 15:47:29 -0000	1.72.2.4
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	29 Sep 2013 20:10:01 -0000	1.72.2.5
@@ -638,7 +638,7 @@
       ns_eval [list ::xo::ns_log_redirector_manager set_level $value]
       #set blueprint [ns_ictl get]
       #set last [string last "\n::xo::ns_log_redirector_manager" $blueprint]
-      #if {$last > -1} { set blueprint [string range $blueprint 0 [expr {$last-1}]]}
+      #if {$last > -1} { set blueprint [string range $blueprint 0 $last-1]}
       #ns_ictl save "$blueprint\n::xo::ns_log_redirector_manager set_level $value"
     }
   }
Index: openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl,v
diff -u -N -r1.6.2.2 -r1.6.2.3
--- openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	15 Sep 2013 16:22:40 -0000	1.6.2.2
+++ openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	29 Sep 2013 20:10:01 -0000	1.6.2.3
@@ -110,19 +110,19 @@
 	while {[string length $l] > $width} {
 	  set pos [string last " \{" $l $width]
 	  if {$pos>10} {
-	    lappend lines "[string range $l 0 [expr {$pos-1}]] \\" 
+	    lappend lines "[string range $l 0 $pos-1] \\" 
 	    set l "      [string range $l $pos end]"
 	  } else {
 	    # search for a match right of the target
 	    set pos [string first " \{" $l $width]
 	    if {$pos>10} {
-	      lappend lines "[string range $l 0 [expr {$pos-1}]] \\" 
+	      lappend lines "[string range $l 0 $pos-1] \\" 
 	      set l "      [string range $l $pos end]"
 	    } else {
 	      # last resort try to split around spaces 
 	      set pos [string last " " $l $width]
 	      if {$pos>10} {
-		lappend lines "[string range $l 0 [expr {$pos-1}]] \\" 
+		lappend lines "[string range $l 0 $pos-1] \\" 
 		set l "      [string range $l $pos end]"
 	      } else {
 		break
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]
Index: openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl,v
diff -u -N -r1.47.2.2 -r1.47.2.3
--- openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	24 Sep 2013 09:13:00 -0000	1.47.2.2
+++ openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	29 Sep 2013 20:10:02 -0000	1.47.2.3
@@ -259,7 +259,7 @@
 	my close -sync true
       }
     } else {
-      set chunk [string range $content 0 [expr {$blocksize-1}]]
+      set chunk [string range $content 0 $blocksize-1]
       set content [string range $content $blocksize end]
       puts -nonewline $channel $chunk
       my log "write [string length $chunk] bytes ([string length $content] buffered)"
Index: openacs-4/packages/xotcl-core/tcl/http-client-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/http-client-procs.tcl,v
diff -u -N -r1.29 -r1.29.6.1
--- openacs-4/packages/xotcl-core/tcl/http-client-procs.tcl	7 Sep 2011 17:12:04 -0000	1.29
+++ openacs-4/packages/xotcl-core/tcl/http-client-procs.tcl	29 Sep 2013 20:10:02 -0000	1.29.6.1
@@ -580,7 +580,7 @@
       set to_send [expr {$total_bytes - $bytes_sent}]
       set block_size [expr {$to_send < 4096 ? $to_send : 4096}]
       set next_block_size [expr {$bytes_sent + $block_size}]
-      set block [string range $post_data $bytes_sent [expr {$next_block_size-1}]]
+      set block [string range $post_data $bytes_sent $next_block_size-1]
       my notify request_data $block
       puts -nonewline $S $block
       set bytes_sent $next_block_size
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 -N -r1.239.2.2 -r1.239.2.3
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	17 Sep 2013 17:49:24 -0000	1.239.2.2
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	29 Sep 2013 20:08:51 -0000	1.239.2.3
@@ -298,8 +298,8 @@
       help_text=* {my help_text [lindex [split $s =] 1]}
       *=*         {
         set p [string first = $s]
-        set attribute [string range $s 0 [expr {$p-1}]]
-        set value [string range $s [expr {$p+1}] end]
+        set attribute [string range $s 0 $p-1]
+        set value [string range $s $p+1 end]
         set definition_class [lindex [my procsearch $attribute] 0]
 	set method [my info methods $attribute]
         if {[string match "::xotcl::*" $definition_class] || $method eq ""} {