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.97.2.27 -r1.97.2.28
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	23 Mar 2015 11:34:41 -0000	1.97.2.27
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	9 Jul 2015 21:27:50 -0000	1.97.2.28
@@ -706,6 +706,7 @@
   }
 
   require proc table {name definition {populate ""}} {
+    my log "==== require table $name exists: [my exists_table $name]\n$definition"
     if {![my exists_table $name]} {
       set lines {}
       foreach col [dict keys $definition] {lappend lines "$col [dict get $definition $col]"}