Index: tests/slottest.xotcl
===================================================================
diff -u -r43e8ea0de59e32655b41cbd6c8a47acf8ada443a -r5556c6d63ea6f4d90705386490253530f0272b57
--- tests/slottest.xotcl	(.../slottest.xotcl)	(revision 43e8ea0de59e32655b41cbd6c8a47acf8ada443a)
+++ tests/slottest.xotcl	(.../slottest.xotcl)	(revision 5556c6d63ea6f4d90705386490253530f0272b57)
@@ -36,17 +36,6 @@
 
 package require xotcl::serializer
 
-#proc ? {cmd expected} {
-#   set r [eval $cmd]		       
-#   if {$r ne $expected} {error "$cmd returned '$r' ne '$expected'"}
-#}
-
-# proc t {cmd {txt ""}} {
-#   set n 1000
-#   #set ms [lindex [time [list time $cmd $n] 10] 0]
-#   set ms [lindex [time [list time $cmd $n] 5] 0]
-#   puts "[format %7.4f [expr {$ms*1.0/$n}]]ms for [format %-30s $cmd] ($txt)"
-# }
 #######################################################
 # testing __initcmds
 set ::hu 0
@@ -61,6 +50,7 @@
   Attribute y -initcmd {incr ::hu} 
   Attribute z -initcmd {my trace add variable z read T1}
 }
+
 C create c1
 ? {c1 info vars x} ""
 ? {c1 x} "1"