Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -r1.97.2.7 -r1.97.2.8
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	15 Feb 2014 00:35:56 -0000	1.97.2.7
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	17 Feb 2014 18:45:34 -0000	1.97.2.8
@@ -278,7 +278,7 @@
     set full_statement_name [db_qd_get_fullname $qn 2]
     set full_query [db_qd_fetch $full_statement_name $dbn]
     set sql [db_fullquery_get_querytext $full_query]
-    my uplevel [list subst $sql]
+    my uplevel 2 [list subst $sql]
   }