Index: openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs-oracle.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs-oracle.xql	16 May 2001 00:40:41 -0000	1.3
+++ openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs-oracle.xql	17 May 2001 05:35:35 -0000	1.4
@@ -21,13 +21,17 @@
  
 <fullquery name="wf_case_new.workflow_case_new">      
       <querytext>
-      begin :1 := workflow_case.new(case_id => :case_id,
+
+      begin 
+            :1 := workflow_case.new(case_id => :case_id,
                                     workflow_key => :workflow_key,
                                     context_key => :context_key,
                                     object_id => :object_id,
                                     creation_user => :user_id,
                                     creation_ip => :creation_ip
-                                   ); end;
+                                   ); 
+      end;
+
       </querytext>
 </fullquery>
 
Index: openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/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]