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 -N -r1.50 -r1.51
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	9 Jan 2010 01:56:09 -0000	1.50
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	22 Jan 2010 17:05:20 -0000	1.51
@@ -324,7 +324,7 @@
          # making bugs much harder to track down 
          if { ($errno == 0 || $errno == 2) && [string equal [db_type] "postgresql"] } {
              upvar bind bind
-             set errno [catch {
+             set _errno [catch {
                  if { [info exists bind] && [llength $bind] != 0 } {
                      if { [llength $bind] == 1 } {
                          set bind_vars [list]
@@ -340,9 +340,9 @@
                  } else {
                      set bound_sql [uplevel 3 [list db_bind_var_substitution $sql]]
                  }
-             } error]
-             if { $errno } {
-                 ns_log Warning "ds_collect_db_call: $error\nStatement: $statement_name\nSQL: $sql"
+             } _error]
+             if { $_errno } {
+                 ns_log Warning "ds_collect_db_call: $_error\nStatement: $statement_name\nSQL: $sql"
                  set bound_sql $sql
              }
          }