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 -N -r1.93.2.16 -r1.93.2.17
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	25 May 2020 15:05:20 -0000	1.93.2.16
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	25 May 2020 18:55:05 -0000	1.93.2.17
@@ -1047,6 +1047,7 @@
 
   $slot copy $newSlot
   $newSlot configure -domain [self] -manager $newSlot -create_acs_attribute false -create_table_attribute false {*}$config
+  $newSlot domain [$slot domain]
   set :db_slot($name) $newSlot
 }