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.44.2.1 -r1.44.2.2
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	20 Jul 2005 19:55:00 -0000	1.44.2.1
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	22 Aug 2005 17:07:30 -0000	1.44.2.2
@@ -319,7 +319,7 @@
                          set bound_sql [db_bind_var_substitution $sql $bind]
                      }
                  } else {
-                     set bound_sql [uplevel 4 [list db_bind_var_substitution $sql]]
+                     set bound_sql [uplevel 3 [list db_bind_var_substitution $sql]]
                  }
              } error]
              if { $errno } {