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.37 -r1.38
--- openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl	4 Apr 2013 09:06:54 -0000	1.37
+++ openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl	12 Apr 2013 16:12:56 -0000	1.38
@@ -82,7 +82,7 @@
 
 } {
     set components [split $path "/"]
-    set dirs_in_pageroot [llength [split [ns_info pageroot] "/"]]	   ;# See comments by RBM
+    set dirs_in_pageroot [llength [split $::acs::pageroot "/"]]	   ;# See comments by RBM
 
     # Fix to cope with both full and relative paths
     if { [string index $path 0] eq "/"} {