Index: generic/predefined.h
===================================================================
diff -u -r46d2807a70f63de0d7b1f30921c4e7c418867652 -rbedcf64642123d38ace4f5117e2b4b99fe9a0e06
--- generic/predefined.h	(.../predefined.h)	(revision 46d2807a70f63de0d7b1f30921c4e7c418867652)
+++ generic/predefined.h	(.../predefined.h)	(revision bedcf64642123d38ace4f5117e2b4b99fe9a0e06)
@@ -18,7 +18,7 @@
 "foreach cmd [info command ::xotcl::cmd::Class::*] {\n"
 "::xotcl::alias ::xotcl::Class [namespace tail $cmd] $cmd}\n"
 "::xotcl::Object instproc init args {}\n"
-"::xotcl::Object instproc objinterface {} {;}\n"
+"::xotcl::Object instproc objectparameter {} {;}\n"
 "::xotcl::Class create ::xotcl::NonposArgs\n"
 "foreach cmd [info command ::xotcl::cmd::NonposArgs::*] {\n"
 "::xotcl::alias ::xotcl::NonposArgs [namespace tail $cmd] $cmd}\n"
@@ -73,10 +73,11 @@
 "if {![::xotcl::is $slotobject object]} {::xotcl::Object create $slotobject}\n"
 "eval next -childof $slotobject $args}\n"
 "::xotcl::MetaSlot create ::xotcl::Slot\n"
-"::xotcl::MetaSlot invalidateinterfacedefinition\n"
-"::xotcl::Object instproc objinterface {} {\n"
+"::xotcl::MetaSlot invalidateobjectparameter\n"
+"::xotcl::Object instproc objectparameter {} {\n"
 "set arg_list [list]\n"
-"foreach slot [my info slotobjects] {\n"
+"set slots [::xotcl::objectInfo slotobjects [self]]\n"
+"foreach slot $slots {\n"
 "set arg \"-[namespace tail $slot]\"\n"
 "set opts [list]\n"
 "if {[$slot exists required] && [$slot required]} {\n"
@@ -111,8 +112,8 @@
 "foreach i [$class info instances] {\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"
+"puts stderr \"Bootstrapslot for $class calls invalidateobjectparameter\"\n"
+"$class invalidateobjectparameter}\n"
 "createBootstrapAttributeSlots ::xotcl::Class {\n"
 "{__default_superclass ::xotcl::Object}\n"
 "{__default_metaclass ::xotcl::Class}}\n"
@@ -151,9 +152,9 @@
 "set forwarder [expr {${per-object} ? \"forward\" : \"instforward\"}]\n"
 "if {$domain eq \"\"} {\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"
+"puts stderr \"Slot [self] (name $name) init $domain calls invalidateobjectparameter\"\n"
+"$domain invalidateobjectparameter\n"
+"[my info class] invalidateobjectparameter}\n"
 "$domain $forwarder $name -default [$manager defaultmethods] $manager %1 %self %proc}\n"
 "::xotcl::MetaSlot create ::xotcl::InfoSlot\n"
 "createBootstrapAttributeSlots ::xotcl::InfoSlot {\n"