Index: tests/slottest.xotcl
===================================================================
diff -u -r477c12e1b0f192ab18de415e30001ea151d7ddda -rbf9bae94d157de9bbd4c398f6a3a9a4d93626025
--- tests/slottest.xotcl	(.../slottest.xotcl)	(revision 477c12e1b0f192ab18de415e30001ea151d7ddda)
+++ tests/slottest.xotcl	(.../slottest.xotcl)	(revision bf9bae94d157de9bbd4c398f6a3a9a4d93626025)
@@ -327,10 +327,10 @@
 ? {a0 procsearch f3} "::a0 proc f3"
 ? {a0 procsearch f4} "::a0 forward f4"
 ? {a0 procsearch set} "::xotcl::Object instcmd set"
-? {A slot foo procsearch assign} "::xotcl::Slot instcmd assign"
+? {A slot foo info callable -which assign} "::xotcl::Slot alias assign ::xotcl::setinstvar"
 
 # redefine setter for foo of class A
-A slot foo proc assign {domain var val} {
+A slot foo method assign {domain var val} {
   # Do something with [self] that isn't valid pre-init
   puts setter-[self proc]
   $domain set $var $val