Index: openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl,v
diff -u -r1.39 -r1.40
--- openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl	12 Feb 2003 15:21:14 -0000	1.39
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl	15 Feb 2003 23:55:59 -0000	1.40
@@ -322,8 +322,8 @@
 
     db_qd_log QDDebug "POST-QD: the SQL is $sql"
 
+    upvar bind bind
     set errno [catch {
-	upvar bind bind
 	if { [info exists bind] && [llength $bind] != 0 } {
 	    if { [llength $bind] == 1 } {
 		return [eval [list ns_pg_bind $type $db -bind $bind $sql]]
@@ -333,6 +333,7 @@
 		    ns_set put $bind_vars $name $value
 		}
 		return [eval [list ns_pg_bind $type $db -bind $bind_vars $sql]]
+                
 	    }
 	} else {
 	    return [uplevel $ulevel [list ns_pg_bind $type $db $sql]]