Index: tests/testx.xotcl
===================================================================
diff -u -r34f178fae21c3cf3a2410c7b1986d3e6b84dcf42 -r7c7a27874dbe5bb88a4261eef778b7fd29979761
--- tests/testx.xotcl	(.../testx.xotcl)	(revision 34f178fae21c3cf3a2410c7b1986d3e6b84dcf42)
+++ tests/testx.xotcl	(.../testx.xotcl)	(revision 7c7a27874dbe5bb88a4261eef778b7fd29979761)
@@ -3185,6 +3185,31 @@
   ::errorCheck [Object ismetaclass M] 1 "is metaclass 1"
   ::errorCheck [Object ismetaclass C] 0 "is metaclass 0"
 
+  Class X
+  ::errorCheck [Object ismetaclass X] 0 "is metaclass 0"
+  ::errorCheck [X isclass] 1 "is isclass 1"
+  ::errorCheck [Class info instances X] ::X "is an instance of Class"
+  X class Object
+  ::errorCheck [X isclass] 0 "is isclass 0"
+  ::errorCheck [Class info instances X] "" "is not an instance of Class"
+  X destroy
+
+  Class M -superclass Class
+  M create m1
+  ::errorCheck [Object ismetaclass M] 1 "is metaclass 1"
+  ::errorCheck [M isclass] 1 "is isclass 1"
+  ::errorCheck [Class info instances M] ::M "is an instance of Class"
+  ::errorCheck [m1 info class] ::M "m1 is an instance of the meta-class"
+  ::errorCheck [m1 isclass] 1 "m1 is isclass 1"
+  M class Object
+  ::errorCheck [Object ismetaclass M] 0 "is metaclass 1"
+  ::errorCheck [M isclass] 0 "is isclass 0"
+  ::errorCheck [Class info instances M] "" "is not an instance of Class"
+  ::errorCheck [m1 info class] ::M "m1 is an instance of the meta-class"
+  ::errorCheck [m1 isclass] 1 "m1 is isclass 1"
+  
+  # to be completed XXX
+
   Class C -parameter {number name}
   C instproc test {} {
     my instvar {number x} name