Index: tests/object-system.xotcl
===================================================================
diff -u -r3f0573cc75724179f416942b974373e5a62ec05e -r5670d611979156a6f4a6654fedc35e9e802e3dee
--- tests/object-system.xotcl	(.../object-system.xotcl)	(revision 3f0573cc75724179f416942b974373e5a62ec05e)
+++ tests/object-system.xotcl	(.../object-system.xotcl)	(revision 5670d611979156a6f4a6654fedc35e9e802e3dee)
@@ -63,14 +63,32 @@
 ? {c1 ismetaclass} 0
 ? {c1 info class} ::C
 
-# destroy meta-class M, reclass meta-class instances to the base meta-class
+Class M2 -superclass M
+? {Object isobject M2} 1
+? {M2 isclass} 1
+? {M2 ismetaclass} 1
+? {M2 info superclass} ::M
+? {M2 info class} ::xotcl::Class
+
+M2 m2
+? {m2 info superclass} ::xotcl::Object
+? {m2 info class} ::M2
+
+# destroy meta-class M, reclass meta-class instances to the base
+# meta-class and set subclass of M to the root meta-class
 M destroy
 ? {Object isobject C} 1
 ? {C isclass} 1
 ? {C ismetaclass} 0
 ? {C info superclass} ::xotcl::Object
 ? {C info class} ::xotcl::Class
 
+? {M2 ismetaclass} 1
+? {M2 info superclass} ::xotcl::Class
+? {m2 info superclass} ::xotcl::Object
+? {m2 info class} ::M2
+
+
 # destroy class M, reclass class instances to the base class
 C destroy
 ? {Object isobject c1} 1