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 -N -r1.20 -r1.21
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	19 May 2007 09:38:21 -0000	1.20
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	23 May 2007 07:05:11 -0000	1.21
@@ -193,6 +193,8 @@
 
   ::xotcl::Object create sql
   if {[db_driverkey ""] eq "postgresql"} {
+    proc map_sql_datatype {type} {return $type}
+
     sql proc select {
       -vars:required 
       -from:required 
@@ -211,6 +213,13 @@
       return "SELECT $vars FROM $from WHERE $where $group_clause $order_clause $limit_clause"
     }
   } else { ;# Oracle
+    proc map_sql_datatype {type} {
+      switch $type {
+        text {set type varchar(64000)}
+      }
+      return $type
+    }
+
     sql proc select {
       -vars:required 
       -from:required