Index: generic/predefined.h
===================================================================
diff -u -r2252fd2633d5547530210a14fe47ff471b2cdbea -r7cb7c751d63fe0eece5756910e3f0b18e61a4d16
--- generic/predefined.h	(.../predefined.h)	(revision 2252fd2633d5547530210a14fe47ff471b2cdbea)
+++ generic/predefined.h	(.../predefined.h)	(revision 7cb7c751d63fe0eece5756910e3f0b18e61a4d16)
@@ -161,8 +161,7 @@
 "if {![::xotcl::my multivalued]} {\n"
 "error \"Property $prop of [::xotcl::my domain]->$obj ist not multivalued\"}\n"
 "$obj $prop [linsert [$obj info $prop -guards] $pos $value]}\n"
-"namespace eval ::xotcl::Object::slot {}\n"
-"::xotcl::Object alloc ::xotcl::Class::slot\n"
+"::xotcl::Object alloc ::xotcl::Class::slot    ;# already created through createBootstrapAttributeSlots\n"
 "::xotcl::Object alloc ::xotcl::Object::slot\n"
 "::xotcl::InfoSlot create ::xotcl::Class::slot::superclass\n"
 "::xotcl::alias ::xotcl::Class::slot::superclass assign ::xotcl::relation\n"
@@ -404,12 +403,13 @@
 "if {[lindex $def 0] eq $origin} {\n"
 "set def [concat $dest [lrange $def 1 end]]}\n"
 "$dest trace add variable $var $op $def}}}}\n"
-"set origin [lindex [::xotcl::my set targetList] 0]\n"
+"foreach origin [::xotcl::my set targetList] {\n"
 "if {[::xotcl::my isclass $origin]} {\n"
+"set dest [::xotcl::my getDest $origin]\n"
 "foreach oldslot [$origin info slots] {\n"
-"set newslot ${cl}::slot::[namespace tail $oldslot]\n"
+"set newslot ${dest}::slot::[namespace tail $oldslot]\n"
 "if {[$oldslot domain] eq $origin}   {$newslot domain $cl}\n"
-"if {[$oldslot manager] eq $oldslot} {$newslot manager $newslot}}}}\n"
+"if {[$oldslot manager] eq $oldslot} {$newslot manager $newslot}}}}}\n"
 "::xotcl::Object::CopyHandler instproc copy {obj dest} {\n"
 "::xotcl::my set objLength [string length $obj]\n"
 "::xotcl::my set dest $dest\n"