Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	10 Nov 2003 13:11:00 -0000	1.20
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	11 Dec 2003 21:39:50 -0000	1.21
@@ -189,7 +189,7 @@
 
         # JCD: don't bind if there was an error since this can potentially mess up the traceback 
         # making bugs much harder to track down 
-        if { !$errno && [string equal [db_type] "postgresql"] } {
+        if { ($errno == 0 || $errno == 2) && [string equal [db_type] "postgresql"] } {
             upvar bind bind
             set errno [catch {
                 if { [info exists bind] && [llength $bind] != 0 } {
@@ -440,3 +440,23 @@
 	}
     }
 }
+
+ad_proc -private ds_watch_packages {} {
+    Watch tcl libraries and xql files for packages listed
+    in the PackageWatchList parameter on server startup.
+
+    @author Peter Marklund
+} {
+    set package_watch_string [parameter::get_from_package_key \
+                                  -package_key acs-developer-support \
+                                  -parameter PackageWatchList]
+
+    foreach package_key [split $package_watch_string] {
+        if { [apm_package_enabled_p $package_key] } {
+            ns_log Notice "Developer-support - watching all files for package $package_key"
+            apm_watch_all_files $package_key        
+        } else {
+            ns_log Notice "developer support - not watching file for package $package_key as package is not enabled"
+        }
+    }
+}
\ No newline at end of file