Index: openacs-4/packages/acs-tcl/tcl/10-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/10-database-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-tcl/tcl/10-database-procs.tcl	27 Mar 2001 23:12:27 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/10-database-procs.tcl	30 Mar 2001 05:44:47 -0000	1.5
@@ -233,6 +233,9 @@
     }</pre></blockquote>
 
 } {
+    # Query Dispatcher (OpenACS - ben)
+    set full_statement_name [db_fullquery_get_fullname $statement_name]
+
     ad_arg_parser { bind column_array column_set args } $args
 
     # Do some syntax checking.
@@ -264,7 +267,7 @@
     }
 
     db_with_handle db {
-	set selection [db_exec select $db $statement_name $sql]
+	set selection [db_exec select $db $full_statement_name $sql]
 
 	set counter 0
 	while { [db_getrow $db $selection] } {
@@ -434,6 +437,9 @@
 } {
     ad_arg_parser { bind column_array column_set } $args
 
+    # Query Dispatcher (OpenACS - ben)
+    set full_statement_name [db_fullquery_get_fullname $statement_name]
+
     if { [info exists column_array] && [info exists column_set] } {
 	return -code error "Can't specify both column_array and column_set"
     }
@@ -450,7 +456,7 @@
     }
 
     db_with_handle db {
-	set selection [db_exec 0or1row $db $statement_name $sql]
+	set selection [db_exec 0or1row $db $full_statement_name $sql]
     }
     
     if { [empty_string_p $selection] } {