Index: openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl,v
diff -u -N -r1.41.2.2 -r1.41.2.3
--- openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl	14 Sep 2013 15:03:34 -0000	1.41.2.2
+++ openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl	1 Oct 2013 07:40:20 -0000	1.41.2.3
@@ -212,7 +212,7 @@
 
     set matching_files [list]
     foreach file $files {
-        set rel_path [string range $file [expr {[string length $package_path] + 1}] end]
+        set rel_path [string range $file [string length $package_path]+1 end]
         set file_type [apm_guess_file_type $package_key $rel_path]
         set file_db_type [apm_guess_db_type $package_key $rel_path]
 
@@ -333,7 +333,7 @@
          "ctl_file" eq $file_type } {
         set sql_index [lsearch $components "sql"]
         if { $sql_index >= 0 } {
-            set db_dir [lindex $components [expr {$sql_index + 1}]]
+            set db_dir [lindex $components $sql_index+1]
             if {$db_dir eq "common"} {
                 return ""
             }