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.38 -r1.39
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	24 Sep 2007 12:04:26 -0000	1.38
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	27 Sep 2007 10:40:48 -0000	1.39
@@ -209,6 +209,7 @@
 
     sql proc map_datatype {type} {
       switch -- $type {
+        string    { set type text }
         long_text { set type text }
       }
       return $type
@@ -258,6 +259,7 @@
 
     sql proc map_datatype {type} {
       switch -- $type {
+        string    { set type varchar2(1000) }
         text      { set type varchar2(4000) }
         long_text { set type clob }
         boolean   { set type char(1) }
@@ -1395,7 +1397,7 @@
     #
     set table_name [[my domain] table_name]
     if {$id_column} {
-      # add automatically a constraints for the id_column
+      # add automatically a constraint for the id_column
       set cname [::xo::db::mk_sql_constraint_name $table_name $name pk]
       append column_spec "\n\tCONSTRAINT $cname PRIMARY KEY"
     }