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 -r1.6.2.1
--- openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	12 Aug 2013 20:01:06 -0000	1.6
+++ openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	5 Sep 2013 11:49:13 -0000	1.6.2.1
@@ -77,8 +77,8 @@
       }
       set root_dir [acs_root_dir]
       set root_length [string length $root_dir]
-      if { $root_dir eq [string range $script 0 [expr {$root_length - 1}]]} {
-        set script [string range $script [expr {$root_length + 1}] end]
+      if { $root_dir eq [string range $script 0 $root_length-1]} {
+        set script [string range $script $root_length+1 end]
       }
       return $script