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.19 -r1.97.2.20
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	19 Sep 2014 20:22:33 -0000	1.97.2.19
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	19 Sep 2014 21:17:28 -0000	1.97.2.20
@@ -668,9 +668,9 @@
   require proc table {name definition} {
     if {![my exists_table $name]} {
       set lines {}
-      foreach col [dict keys $definition] {append lines "$col [dict get $definition $col]"}
-      set definiition [join $lines ",\n"]
-      #my log "--table $name does not exist, creating with $definition"
+      foreach col [dict keys $definition] {lappend lines "$col [dict get $definition $col]"}
+      set definition [join $lines ",\n"]
+      my log "--table $name does not exist, creating with definition: $definition\n\nlines: $lines"
       ::xo::dc dml create-table-$name "create table $name ($definition)"
     } else {
       # The table exists already. Check the colums, whether we have to