Index: openacs-4/packages/acs-tcl/tcl/10-database-procs-postgresql.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/10-database-procs-postgresql.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-tcl/tcl/10-database-procs-postgresql.tcl	8 Apr 2001 11:41:48 -0000	1.6
+++ openacs-4/packages/acs-tcl/tcl/10-database-procs-postgresql.tcl	8 Apr 2001 16:13:03 -0000	1.7
@@ -193,7 +193,7 @@
 } {
     set start_time [clock clicks]
 
-    ns_log Notice "PRE-QD: the SQL is $sql"
+    ns_log Notice "PRE-QD: the SQL is $sql for $statement_name"
 
     # Query Dispatcher (OpenACS - ben)
     set sql [db_fullquery_replace_sql $statement_name $sql]
@@ -233,8 +233,11 @@
 } {
     ad_arg_parser { bind } $args
 
+    # Query Dispatcher (OpenACS - ben)
+    set full_statement_name [db_fullquery_get_fullname $statement_name]
+
     db_with_handle db {
-	db_exec dml $db $statement_name $sql
+	db_exec dml $db $full_statement_name $sql
     }
 }