Index: openacs-4/packages/xotcl-core/xotcl-core.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/xotcl-core.info,v
diff -u -r1.91 -r1.92
--- openacs-4/packages/xotcl-core/xotcl-core.info	27 Apr 2015 15:28:20 -0000	1.91
+++ openacs-4/packages/xotcl-core/xotcl-core.info	9 Jul 2015 21:22:50 -0000	1.92
@@ -10,7 +10,7 @@
     <inherit-templates-p>t</inherit-templates-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="0.137" url="http://media.wu-wien.ac.at/download/xotcl-core-0.137.apm">
+    <version name="0.138" url="http://media.wu-wien.ac.at/download/xotcl-core-0.138.apm">
         <owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
         <summary>XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes)</summary>
         <release-date>2015-02-11</release-date>
@@ -48,7 +48,7 @@
         <license>BSD-Style</license>
         <maturity>2</maturity>
 
-        <provides url="xotcl-core" version="0.137"/>
+        <provides url="xotcl-core" version="0.138"/>
 	<requires url="acs-kernel" version="5.8.1"/>
         
 
Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -r1.76 -r1.77
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	15 Jun 2015 19:28:33 -0000	1.76
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	9 Jul 2015 21:22:51 -0000	1.77
@@ -967,7 +967,8 @@
   set newSlot [self]::slot::$name
 
   $slot copy $newSlot
-  $newSlot configure -domain [self] -manager $newSlot -create_acs_attribute false {*}$config
+  $newSlot configure -domain [self] -manager $newSlot -create_acs_attribute false -create_table_attribute false {*}$config
+  my set db_slot($name) $newSlot 
 }
 
 
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]"}