Index: library/xotcl/tests/slottest.xotcl
===================================================================
diff -u -rc5d841d4cd001b85e95e01202b4fc0afe75df6a8 -rf69e0909fcb180e1cbcdd316f0a20de1b254af3d
--- library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision c5d841d4cd001b85e95e01202b4fc0afe75df6a8)
+++ library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision f69e0909fcb180e1cbcdd316f0a20de1b254af3d)
@@ -323,8 +323,8 @@
 # redefine setter for foo of class A
 #A slot foo method assign {domain var val} ...
 A::slot::foo public method assign {domain var val} {
-  # Do something with [self] that isn't valid pre-init
-  puts setter-[self proc]
+  # Do something with [self] that isn't valid before init
+  #puts setter-[self proc]
   $domain set $var $val
 }