Index: openacs.org-dev/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl	9 Jul 2002 17:34:56 -0000	1.1.1.1
+++ openacs.org-dev/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl	8 Oct 2002 15:46:41 -0000	1.1.1.2
@@ -230,18 +230,19 @@
     {-procs:boolean}
     package_key
 } {
-
-    @author Don Baccus
-    @param The package to load (normally acs-tcl)
-    @init Load initialization files
-    @procs Load the proc library files
-
     Scan all the files in the package and load those asked for by the init
     and procs flags.
 
     This proc is an analog of apm_load_libraries.  We can't call
     apm_load_libraries during the initial portion of the bootstrap process
     because the acs-kernal datamodel may not exist.
+
+    @author Don Baccus (dhogaza@pacifier.com)
+
+
+    @param package_key The package to load (normally acs-tcl)
+    @param init Load initialization files
+    @param procs Load the proc library files
 } {
 
     set root_directory [nsv_get acs_properties root_directory]
@@ -274,7 +275,11 @@
             if { [llength [info procs db_release_unused_handles]] != 0 } {
                 db_release_unused_handles
             }
-        }
+        } elseif { ( [empty_string_p $file_db_type] ||
+	             [string equal $file_db_type $db_type] ) &&
+	           ( [string equal $file_type tcl_util] ) } {
+	    ns_log warning "apm_boostrap_load_file skipping $file because it isn't either a -procs.tcl or -init.tcl file"
+	}
     }
 
     unset apm_first_time_loading_p