Index: generic/predefined.h
===================================================================
diff -u -r2111020b49da8ce57758e51accf0b6073037f0d2 -r4eafc074cdca60b0089c2a950954c83d519b91d3
--- generic/predefined.h	(.../predefined.h)	(revision 2111020b49da8ce57758e51accf0b6073037f0d2)
+++ generic/predefined.h	(.../predefined.h)	(revision 4eafc074cdca60b0089c2a950954c83d519b91d3)
@@ -5,6 +5,8 @@
 "puts stderr \"::xotcl::setrelation is deprecated, use '::xotcl::relation $args' instead\"\n"
 "uplevel ::xotcl::relation $args}\n"
 "if {[info command ::oo::object] ne \"\"} {\n"
+"::xotcl::alias ::oo::object destroy ::xotcl::cmd::Object::destroy\n"
+"::xotcl::alias ::oo::class instdestroy ::xotcl::cmd::Class::instdestroy\n"
 "::xotcl::alias ::oo::class alloc ::xotcl::cmd::Class::alloc\n"
 "::oo::class alloc ::xotcl::Object\n"
 "::oo::class alloc ::xotcl::Class\n"
@@ -200,6 +202,7 @@
 "::xotcl::Attribute instproc mk_type_checker {} {\n"
 "set __initcmd \"\"\n"
 "if {[::xotcl::my exists type]} {\n"
+"puts stderr \"mktypechecker, type=$type\"\n"
 "::xotcl::my instvar type name\n"
 "if {[::xotcl::Object isclass $type]} {\n"
 "set predicate [subst -nocommands {\n"