Index: generic/predefined.h
===================================================================
diff -u -r543e283a1681f4e7075eb65a0dd97f54cf48e2f7 -rffd2368a61d1328d71f07ef8b922820bf8263c25
--- generic/predefined.h	(.../predefined.h)	(revision 543e283a1681f4e7075eb65a0dd97f54cf48e2f7)
+++ generic/predefined.h	(.../predefined.h)	(revision ffd2368a61d1328d71f07ef8b922820bf8263c25)
@@ -87,9 +87,10 @@
 "if {[llength $att]>1} {foreach {att default} $att break}\n"
 "if {[info exists default]} {\n"
 "foreach i [$class info instances] {\n"
-"if {![$i exists $att]} {::xotcl::setinstvar $i $att $default}\n"
-"$i configure}\n"
-"unset default}}}\n"
+"if {![$i exists $att]} {::xotcl::setinstvar $i $att $default}}\n"
+"unset default}}\n"
+"puts stderr \"Bootstrapslot for $class calls invalidateinterfacedefinition\"\n"
+"$class invalidateinterfacedefinition}\n"
 "::xotcl::Object instproc configureargs {} {\n"
 "set arg_list [list]\n"
 "foreach slot [my info slotobjects] {\n"
@@ -143,7 +144,10 @@
 "::xotcl::my instvar name domain manager per-object\n"
 "set forwarder [expr {${per-object} ? \"forward\" : \"instforward\"}]\n"
 "if {$domain eq \"\"} {\n"
-"set domain [::xotcl::self callingobject]}\n"
+"set domain [::xotcl::self callingobject]} else {\n"
+"puts stderr \"Slot [self] (name $name) init $domain calls invalidateinterfacedefinition\"\n"
+"$domain invalidateinterfacedefinition\n"
+"[my info class] invalidateinterfacedefinition}\n"
 "$domain $forwarder $name -default [$manager defaultmethods] $manager %1 %self %proc}\n"
 "::xotcl::MetaSlot create ::xotcl::InfoSlot\n"
 "createBootstrapAttributeSlots ::xotcl::InfoSlot {\n"
@@ -182,19 +186,19 @@
 "namespace eval ::xotcl::Object::slot {}\n"
 "::xotcl::Object alloc ::xotcl::Class::slot\n"
 "::xotcl::Object alloc ::xotcl::Object::slot\n"
-"::xotcl::InfoSlot create ::xotcl::Class::slot::superclass -type interceptor\n"
+"::xotcl::InfoSlot create ::xotcl::Class::slot::superclass -type relation\n"
 "::xotcl::alias ::xotcl::Class::slot::superclass assign ::xotcl::relation\n"
-"::xotcl::InfoSlot create ::xotcl::Object::slot::class -type interceptor\n"
+"::xotcl::InfoSlot create ::xotcl::Object::slot::class -type relation\n"
 "::xotcl::alias ::xotcl::Object::slot::class assign ::xotcl::relation\n"
 "::xotcl::InterceptorSlot create ::xotcl::Object::slot::mixin \\\n"
-"-type interceptor\n"
+"-type relation\n"
 "::xotcl::InterceptorSlot create ::xotcl::Object::slot::filter \\\n"
-"-elementtype \"\" -type interceptor\n"
+"-elementtype \"\" -type relation\n"
 "::xotcl::InterceptorSlot create ::xotcl::Class::slot::instmixin \\\n"
-"-type interceptor\n"
+"-type relation\n"
 "::xotcl::InterceptorSlot create ::xotcl::Class::slot::instfilter \\\n"
 "-elementtype \"\" \\\n"
-"-type interceptor\n"
+"-type relation\n"
 "::xotcl::MetaSlot create ::xotcl::Attribute -superclass ::xotcl::Slot\n"
 "createBootstrapAttributeSlots ::xotcl::Attribute {\n"
 "{value_check once}\n"