Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	17 May 2003 10:04:18 -0000	1.29
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	7 Jul 2003 12:00:01 -0000	1.30
@@ -2547,7 +2547,20 @@
             return $data
         }
 
-        oracle -
+        oracle {
+            set pre_sql $sql
+            set full_statement_name [db_qd_get_fullname $statement_name]
+            set sql [db_qd_replace_sql $full_statement_name $pre_sql]
+  
+            # insert tcl variable values (borrowed from Dan W - olah)
+            if {![string equal $sql $pre_sql]} {
+                set sql [uplevel 2 [list subst -nobackslashes $sql]]
+            }
+
+            set data [db_string dummy_statement_name $sql]
+            return $data
+        }
+
         nsodbc -
         default {
             error "$proc_name is not supported for this database."