Index: tests/info-method.xotcl
===================================================================
diff -u -rff41e1a0cb88c3aa7b96ca3b67b27043794991b0 -r73eb4eccd33d1a940e2d2ca6dccc2f74216f0576
--- tests/info-method.xotcl	(.../info-method.xotcl)	(revision ff41e1a0cb88c3aa7b96ca3b67b27043794991b0)
+++ tests/info-method.xotcl	(.../info-method.xotcl)	(revision 73eb4eccd33d1a940e2d2ca6dccc2f74216f0576)
@@ -1,17 +1,6 @@
 package req XOTcl
 package require xotcl::test
 
-proc ? {cmd expected {msg ""}} {
-  set count 10
-  if {$msg ne ""} {
-    set t [Test new -cmd $cmd -count $count -msg $msg]
-  } else {
-    set t [Test new -cmd $cmd -count $count]
-  }
-  $t expected $expected 
-  $t run
-}
-#::xotcl::use xotcl1
 ::xotcl::use xotcl2
 
 Object create o {