Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	10 Apr 2007 13:19:28 -0000	1.9
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	11 Apr 2007 12:19:38 -0000	1.10
@@ -22,6 +22,10 @@
     from acs_function_args
   }
 
+  proc map {sql} {
+    if {[db_driverkey ""] eq "oracle"} {return [string map [list "__" .] $sql]}
+    return $sql
+  }
 
   Class DbPackage
   DbPackage instproc sql-arguments {sql package_name object_name} {