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 -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