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.2.1 -r1.20.2.2
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	25 Nov 2003 11:44:42 -0000	1.20.2.1
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	28 Nov 2003 00:15:22 -0000	1.20.2.2
@@ -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 } {