Index: library/xotcl/tests/slottest.xotcl
===================================================================
diff -u -r91007cd5fdd2f8f125fdd433ef7701574e8167d2 -rdd169437c7a701da0063a40978614e6148d71221
--- library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision 91007cd5fdd2f8f125fdd433ef7701574e8167d2)
+++ library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision dd169437c7a701da0063a40978614e6148d71221)
@@ -131,8 +131,8 @@
   }
 }
 
-? {O superclass slot self} "::xotcl::Class::slot::superclass"
-#? {O superclass slot domain} "::xotcl::Class"
+#? {O superclass slot self} "::xotcl::Class::slot::superclass"
+? {O ::nsf::methods::object::info::lookupslots superclass} "::xotcl::Class::slot::superclass"
 ? {::xotcl::Class::slot::superclass cget -domain} "::xotcl::Class"
 
 ? {O2 superclass} "::O"
@@ -377,7 +377,7 @@
 ? {a0 procsearch f3} "::a0 proc f3"
 ? {a0 procsearch f4} "::a0 forward f4"
 ? {a0 procsearch set} "::xotcl::Object instcmd set"
-? {A::slot::foo info lookup method assign} "::nsf::classes::nx::VariableSlot::assign"
+? {A::slot::foo info lookup method value=assign} "::nsf::classes::xotcl::Attribute::value=assign"
 
 # redefine setter for foo of class A
 #A slot foo method assign {domain var val} ...
@@ -546,7 +546,7 @@
 nx::test case assign-via-slots
 
 Class create A -slots {
-  Attribute create foo -default 1 -proc  assign {domain var value} {
+  Attribute create foo -default 1 -proc value=assign {domain var value} {
     if {$value < 0 || $value > 99} {
       error "$value is not in the range of 0 .. 99"
     }
@@ -646,7 +646,7 @@
 #
 
 Class create AA -slots {
-    Attribute foo -default 1 -proc assign {domain var value} {
+    Attribute foo -default 1 -proc value=assign {domain var value} {
 	if {$value < 0 || $value > 99} {
 	    error "$value is not in the range of 0 .. 99"
 	}