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 -r1.6 -r1.7
--- openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl	19 Aug 2001 21:26:05 -0000	1.6
+++ openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl	11 Oct 2001 18:19:36 -0000	1.7
@@ -71,10 +71,17 @@
 } {
     set components [split $path "/"]
     set dirs_in_pageroot [llength [split [ns_info pageroot] "/"]]	   ;# See comments by RBM
-    set components_lesser [lrange $components $dirs_in_pageroot end]
+
+    # Fix to cope with both full and relative paths
+    if { [string index $path 0] == "/"} {                          
+	set components_lesser [lrange $components $dirs_in_pageroot end] 
+    } else {
+	set components_lesser $components
+    }
     set extension [file extension $path]
     set type ""
 
+
     # DRB: someone named a file "acs-mail-create-packages.sql" rather than
     # the conventional "acs-mail-packages-create.sql", causing it to be
     # recognized as a data_model_create file, causing it to be explicitly
@@ -124,7 +131,7 @@
 	        set type "tcl_$kind"
             } else {
                 set type "tcl_util"
-            }
+	    }
 	}
     }
     return $type