Index: openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl	15 May 2001 05:09:08 -0000	1.7
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl	17 May 2001 05:35:35 -0000	1.8
@@ -38,7 +38,8 @@
     db_with_handle db {
 	# Right now, use :1 as the output value if it occurs in the statement,
 	# or not otherwise.
-	if { [regexp {:1} $sql] } {
+        set test_sql [db_qd_replace_sql $full_statement_name $sql]
+	if { [regexp {:1} $test_sql] } {
 	    return [db_exec exec_plsql_bind $db $full_statement_name $sql 2 1 ""]
 	} else {
 	    return [db_exec dml $db $full_statement_name $sql]