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 -r1.61 -r1.62
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	20 Oct 2003 17:56:15 -0000	1.61
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	29 Oct 2003 13:20:48 -0000	1.62
@@ -562,15 +562,18 @@
                 
                 switch $file_ext {
                     .tcl { 
-                        ns_log Notice "APM: Reloading $file..."
-                        apm_source $file_path
+                        # Make sure this is not a -init.tcl file as those should only be sourced on server startup
+                        if { ![regexp {\-init\.tcl$} $file_path] } {
+                            ns_log Notice "APM: Reloading $file..."
+                            apm_source $file_path
+                        }
                     }
                     .xql { 
                         ns_log Notice "APM: Reloading $file..."
                         db_qd_load_query_file $file_path
                     }
                     default {
-                        ns_log Notice "APM: $file has unknown file type, '$file_type': Not reloading."
+                        ns_log Notice "APM: File $file_path has unknown extension. Not reloading."
                     }
                 }