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.102 -r1.103 --- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl 30 Jun 2015 09:20:54 -0000 1.102 +++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl 9 Jul 2015 21:22:51 -0000 1.103 @@ -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]"}