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.13 -r1.14
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	26 Aug 2001 22:57:00 -0000	1.13
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	15 Sep 2001 00:32:45 -0000	1.14
@@ -280,6 +280,7 @@
     # Scan the package directory for files to source.    
     set files [list]    
     foreach package $packages {
+
 	set base "[acs_root_dir]/packages/$package/"
 	set base_len [string length $base]
 	set dirs [list \
@@ -290,9 +291,11 @@
 	foreach dir $dirs {
 	    if {$procs_p} {
 		set paths [concat $paths [glob -nocomplain "$dir/*procs.tcl"]]
+                set paths [concat $paths [glob -nocomplain "$dir/*procs-[db_type].tcl"]]
 	    } 
 	    if {$init_p} {
 		set paths [concat $paths [glob -nocomplain "$dir/*init.tcl"]]
+                set paths [concat $paths [glob -nocomplain "$dir/*init-[db_type].tcl"]]
 	    }    
 	}