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.18 -r1.89.2.19
--- openacs-4/packages/xotcl-core/xotcl-core.info	11 Jan 2015 21:03:43 -0000	1.89.2.18
+++ openacs-4/packages/xotcl-core/xotcl-core.info	3 Feb 2015 13:44:10 -0000	1.89.2.19
@@ -10,7 +10,7 @@
     <inherit-templates-p>t</inherit-templates-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="0.133" url="http://media.wu-wien.ac.at/download/xotcl-core-0.133.apm">
+    <version name="0.134" url="http://media.wu-wien.ac.at/download/xotcl-core-0.134.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>2014-03-24</release-date>
@@ -48,7 +48,7 @@
         <license>BSD-Style</license>
         <maturity>2</maturity>
 
-        <provides url="xotcl-core" version="0.133"/>
+        <provides url="xotcl-core" version="0.134"/>
 	<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.22 -r1.72.2.23
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	11 Jan 2015 21:05:13 -0000	1.72.2.22
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	3 Feb 2015 13:44:10 -0000	1.72.2.23
@@ -1003,7 +1003,7 @@
 
   # The argument list is e.g. "foo -name x -title y" 
   #
-  # It is placed into one arguemnt to avoid interference with the "-"
+  # It is placed into one argument to avoid interference with the "-"
   # argument parsing since it will always start with a non-dashed
   # value.
   #
@@ -1021,8 +1021,9 @@
   
   # copy slot and configure it
   set newSlot [self]::slot::$name
+
   $slot copy $newSlot
-  $newSlot configure {*}$config
+  $newSlot configure -domain [self] -manager $newSlot -create_acs_attribute false {*}$config
 }