Index: library/xotcl/tests/slottest.xotcl
===================================================================
diff -u -racc540eae81024718461724ce69e7971fa9ddfa9 -r91007cd5fdd2f8f125fdd433ef7701574e8167d2
--- library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision acc540eae81024718461724ce69e7971fa9ddfa9)
+++ library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision 91007cd5fdd2f8f125fdd433ef7701574e8167d2)
@@ -132,7 +132,8 @@
 }
 
 ? {O superclass slot self} "::xotcl::Class::slot::superclass"
-? {O superclass slot domain} "::xotcl::Class"
+#? {O superclass slot domain} "::xotcl::Class"
+? {::xotcl::Class::slot::superclass cget -domain} "::xotcl::Class"
 
 ? {O2 superclass} "::O"
 O2 superclass add M
@@ -210,8 +211,8 @@
 }
 
 puts [Person serialize]
-Person::slot::name default "gustaf"
-? {Person::slot::name default} gustaf
+Person::slot::name configure -default "gustaf"
+? {Person::slot::name cget -default} gustaf
 Person p1 -name neophytos
 ? {p1 name} neophytos
 ? {p1 age} 0