Index: openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/table-display-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl	24 Apr 2001 22:39:18 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl	26 Apr 2001 05:38:54 -0000	1.4
@@ -270,14 +270,13 @@
     </ul>
 
 } {
+
+    set full_statement_name [db_qd_get_fullname $statement_name]
+
     # This procedure needs a full rewrite!
     db_with_handle Tdb {
 	# Execute the query
-	if { ![empty_string_p $bind] } {
-	    set selection [ns_ora select $Tdb -bind $bind $sql_qry]
-	} else {
-	    set selection [ns_ora select $Tdb $sql_qry]
-	}
+        set selection [db_exec select $Tdb $full_statement_name $sql_qry]
 	set Tcount 0
 	set Tband_count 0
 	set Tpage_count 0