Index: openacs-4/packages/acs-tcl/tcl/apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.tcl,v
diff -u -N -r1.30 -r1.31
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	13 Jan 2003 19:53:12 -0000	1.30
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	13 Jan 2003 22:55:55 -0000	1.31
@@ -250,6 +250,7 @@
 }
 
 ad_proc -private apm_load_libraries { 
+    {-force_reload_p 0}
     {-packages {}}
     {-callback apm_dummy_callback}
     {-procs:boolean} 
@@ -317,10 +318,11 @@
     # Release all outstanding database handles (since the file we're sourcing
     # might be using the ns_db database API as opposed to the new db_* API).
     db_release_unused_handles
-    apm_files_load -callback $callback $files
+    apm_files_load -force_reload_p $force_reload_p -callback $callback $files
 }
 
 ad_proc -public apm_load_package {
+    {-force_reload_p 0}
     {-load_tests_p 0}
     package_key
 } {
@@ -329,22 +331,22 @@
     @author Peter Marklund
 } {
     # Load *-procs.tcl and *-init.tcl files for enabled packages.
-    apm_load_libraries -packages $package_key -procs
+    apm_load_libraries -force_reload_p $force_reload_p -packages $package_key -procs
 
     # Load up the Queries (OpenACS, ben@mit.edu)
     apm_load_queries -packages $package_key
 
     # Load up the Automated Tests and associated Queries if necessary
     if {$load_tests_p} {
-      apm_load_libraries -packages $package_key -test_procs
+      apm_load_libraries -force_reload_p $force_reload_p -packages $package_key -test_procs
       apm_load_queries -packages $package_key -test_queries
     }
 
     apm_load_libraries -packages $package_key -init
 
     # Load up the Automated Tests initialisation scripts is necessary
     if {$load_tests_p} {
-      apm_load_libraries -packages $package_key -test_init
+      apm_load_libraries -force_reload_p $force_reload_p -packages $package_key -test_init
     }
 }