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.82 -r1.83
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	9 Apr 2013 18:30:06 -0000	1.82
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	11 Apr 2013 21:47:24 -0000	1.83
@@ -2089,7 +2089,7 @@
     @param cache_pool Override the default db_cache_pool
 
 } {
-    if { ![uplevel db_0or1row $args] } {
+    if { ![uplevel ::db_0or1row $args] } {
         return -code error "Query did not return any rows."
     }
 }