Index: openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl,v
diff -u -r1.41.2.3 -r1.41.2.4
--- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	25 Aug 2013 19:54:34 -0000	1.41.2.3
+++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	5 Sep 2013 11:50:59 -0000	1.41.2.4
@@ -38,8 +38,8 @@
 
 proc ad_make_relative_path { path } {
     set root_length [string length [acs_root_dir]]
-    if { ![string compare [acs_root_dir] [string range $path 0 [expr { $root_length - 1 }]]] } {
-	return [string range $path [expr { $root_length + 1 }] [string length $path]]
+    if { ![string compare [acs_root_dir] [string range $path 0 $root_length-1]] } {
+	return [string range $path $root_length+1 [string length $path]]
     }
     error "$path is not under the path root ([acs_root_dir])"
 }
@@ -403,8 +403,8 @@
     set root_dir [nsv_get acs_properties root_directory]
     set script [info script]
     set root_length [string length $root_dir]
-    if { ![string compare $root_dir [string range $script 0 [expr { $root_length - 1 }]]] } {
-        set script [string range $script [expr { $root_length + 1 }] end]
+    if { ![string compare $root_dir [string range $script 0 $root_length-1]] } {
+        set script [string range $script $root_length+1 end]
     }
     
     set doc_elements(script) $script