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.15 -r1.16
--- openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl	10 Mar 2003 14:04:26 -0000	1.15
+++ openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl	10 Mar 2003 21:12:44 -0000	1.16
@@ -1,12 +1,16 @@
 ad_library {
 
-    Routines needed by the boostrapper to load package code.   
+    Routines needed by the boostrapper to load package code. 
 
     @creation-date 26 May 2000
     @author Jon Salz [jsalz@arsdigita.com]
     @cvs-id $Id$
 }
 
+# FIXME: Peter M - This file cannot be watched with the APM as it re-initializes 
+# the reload level to 0 everytime it is sourced. Could we move these initialization 
+# to an -init.tcl file instead?
+
 # Initialize loader NSV arrays. See apm-procs.tcl for a description of
 # these arrays.
 nsv_array set apm_library_mtime [list]
@@ -285,8 +289,9 @@
 
     2. Other files.
 
-       If it is a tcl or xql file whose name ends in a dash and database type, 
-       the file is assumed to be specific to that database type.
+       If it is a tcl, xql, or sqlj file not under the sql dir and whose name 
+       ends in a dash and database type, the file is assumed to be specific to 
+       that database type.
 
        Example: "tcl/10-database-postgresql-proc.tcl" is asusmed to be the file that
        defines the PostgreSQL-specific portions of the database API.
@@ -309,7 +314,7 @@
 
     set file_name [file tail $path]
     foreach known_database_type [nsv_get ad_known_database_types .] {
-        if { [regexp -- "\-[lindex $known_database_type 0]\.(xql|tcl)\$" $file_name match] } {
+        if { [regexp -- "\-[lindex $known_database_type 0]\.(xql|tcl|sqlj)\$" $file_name match] } {
             return [lindex $known_database_type 0]
         }
     }