Index: generic/predefined.h
===================================================================
diff -u -rfd82d80829200a3928e29cdfc0d19df6222a9267 -r91e9b1a3b1c3e60a8538156b4aa37d5a664d5133
--- generic/predefined.h	(.../predefined.h)	(revision fd82d80829200a3928e29cdfc0d19df6222a9267)
+++ generic/predefined.h	(.../predefined.h)	(revision 91e9b1a3b1c3e60a8538156b4aa37d5a664d5133)
@@ -4,20 +4,12 @@
 "proc ::xotcl::setrelation args {\n"
 "puts stderr \"::xotcl::setrelation is deprecated, use '::xotcl::relation $args' instead\"\n"
 "uplevel ::xotcl::relation $args}\n"
+"namespace eval ::oo {}\n"
+"::xotcl::createobjectsystem ::oo::object ::oo::class\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"
-"::xotcl::relation ::xotcl::Class superclass ::xotcl::Object\n"
-"::xotcl::relation ::xotcl::Class metaclass\n"
-"puts \"Now class should be a metaclass\"\n"
-"foreach o {::xotcl::Class} {\n"
-"foreach r {object class metaclass} {\n"
-"puts stderr \"$o $r=[::xotcl::is $o $r]\"}}\n"
-"::xotcl::relation ::xotcl::Object class ::xotcl::Class\n"
-"::xotcl::relation ::xotcl::Class class ::xotcl::Class}\n"
+"::xotcl::createobjectsystem ::xotcl::Object ::xotcl::Class}\n"
 "set bootstrap 1\n"
 "foreach cmd [info command ::xotcl::cmd::Object::*] {\n"
 "::xotcl::alias ::xotcl::Object [namespace tail $cmd] $cmd}\n"