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.97.2.24 -r1.97.2.25
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	22 Sep 2014 12:30:24 -0000	1.97.2.24
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	22 Sep 2014 12:52:29 -0000	1.97.2.25
@@ -706,15 +706,6 @@
   }
 
   require proc table {name definition} {
-    # Since rev. 1.97.2.18, definition must be in dict format.
-    # To comply with previous table definitions given as plain string,
-    # we check for definition being a one-element list, and if so
-    # we translate definition to dict format.
-    set dict_def {}; if {[llength $definition] == 1} {
-      foreach col [split $definition ,] {
-	lappend dict_def [lindex $col 0] [lrange $col 1 end]
-      }
-    } ; set definition $dict_def
     if {![my exists_table $name]} {
       set lines {}
       foreach col [dict keys $definition] {lappend lines "$col [dict get $definition $col]"}