Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/00-database-procs.tcl,v
diff -u -r1.48.2.2 -r1.48.2.3
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	25 Mar 2004 12:52:37 -0000	1.48.2.2
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	25 Mar 2004 14:27:12 -0000	1.48.2.3
@@ -862,7 +862,7 @@
                 set __db_ws [lindex [lindex $__db_lst $__db_i] 0]
                 set __db_we [lindex [lindex $__db_lst $__db_i] 1]
                 set __db_bind_var [string range $__db_sql $__db_ws $__db_we]                
-                if {![string match "::*" $__db_] && ![db_bind_var_quoted_p $sql $__db_ws $__db_we]} {
+                if {![string match "::*" $__db_bind_var] && ![db_bind_var_quoted_p $__db_sql $__db_ws $__db_we]} {
                     set __db_tcl_var [string range $__db_bind_var 1 end]
                     set __db_tcl_var [set $__db_tcl_var]
                     if {[string equal $__db_tcl_var ""]} {
@@ -884,7 +884,7 @@
             set ws [lindex [lindex $lst $i] 0]
             set we [lindex [lindex $lst $i] 1]
             set bind_var [string range $sql $ws $we]
-            if {![string match "::*" $bind_var] && ![db_bind_var_quoted_p $sql $ws $we]} {
+            if {![string match "::*" $bind_var] && ![db_bind_var_quoted_p $lsql $ws $we]} {
                 set tcl_var [string range $bind_var 1 end]
                 set val $bind_vars($tcl_var)
                 if {[string equal $val ""]} {