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.89.2.22 -r1.89.2.23
--- openacs-4/packages/xotcl-core/xotcl-core.info	23 Mar 2015 11:34:41 -0000	1.89.2.22
+++ openacs-4/packages/xotcl-core/xotcl-core.info	9 Jul 2015 21:27:49 -0000	1.89.2.23
@@ -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.137.1" url="http://media.wu-wien.ac.at/download/xotcl-core-0.137.1.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.137.1"/>
 	<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.72.2.25 -r1.72.2.26
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	19 Mar 2015 10:19:54 -0000	1.72.2.25
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	9 Jul 2015 21:27:49 -0000	1.72.2.26
@@ -1040,7 +1040,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.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]"}