Index: library/xotcl/tests/slottest.xotcl
===================================================================
diff -u -r5d1617640ad71fd52b069f81cfcadbe4cbb6f2a2 -rf858f142f5fab4f88996b3eb709c3afa55114be9
--- library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision 5d1617640ad71fd52b069f81cfcadbe4cbb6f2a2)
+++ library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision f858f142f5fab4f88996b3eb709c3afa55114be9)
@@ -359,7 +359,7 @@
 
 # redefine setter for foo of class A
 #A slot foo method assign {domain var val} ...
-A::slot::foo public method assign {domain var val} {
+A::slot::foo public object method assign {domain var val} {
   # Do something with [self] that isn't valid before init
   #puts setter-[self proc]
   $domain set $var $val