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.11 -r1.12
--- openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl	22 Jan 2003 15:30:12 -0000	1.11
+++ openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl	15 Feb 2003 23:59:16 -0000	1.12
@@ -258,6 +258,8 @@
 
 ad_proc apm_source { __file } {
     Sources $__file in a clean environment, returning 1 if successful or 0 if not.
+    Records that the file has been sourced and stores its mtime in the nsv array
+    apm_library_mtime
 } {
     if { ![file exists $__file] } {
 		ns_log "Error" "Unable to source $__file: file does not exist."
@@ -271,6 +273,10 @@
 	return 0
     }
 
+    set root_dir_len [string length [acs_root_dir]]
+    set rel_path [string range $__file [expr $root_dir_len + 1] end]
+    nsv_set apm_library_mtime $rel_path [file mtime $__file]    
+
     return 1
 }
 
@@ -282,8 +288,8 @@
     set relative_path [string range $file \
         [expr { [string length "$root_directory/packages"] + 1 }] end]
     ns_log "Notice" "Loading packages/$relative_path..."
+
     apm_source $file
-    nsv_set apm_library_mtime packages/$relative_path [file mtime $file]
 }
 
 ad_proc apm_bootstrap_load_libraries {