Index: tests/objparametertest.xotcl
===================================================================
diff -u -rd3d3eb10074ac56bbc77650c1bdd4239f0d97ca8 -r73eb4eccd33d1a940e2d2ca6dccc2f74216f0576
--- tests/objparametertest.xotcl	(.../objparametertest.xotcl)	(revision d3d3eb10074ac56bbc77650c1bdd4239f0d97ca8)
+++ tests/objparametertest.xotcl	(.../objparametertest.xotcl)	(revision 73eb4eccd33d1a940e2d2ca6dccc2f74216f0576)
@@ -1,22 +1,12 @@
 package require XOTcl
-namespace import -force 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
+Test parameter count 10
 
 catch {::xotcl::configure cacheinterface true}
 set mkTypeChecker 0
 
-puts stderr =====START
 Class C -parameter {a {b:boolean} {c 1}}
 
 C c1