Index: library/lib/test.xotcl
===================================================================
diff -u -rf6be532e62dfbe148ebca8205a67688b751298ad -r7121883918ed2a2591a63630bd465cd1d98eaa26
--- library/lib/test.xotcl	(.../test.xotcl)	(revision f6be532e62dfbe148ebca8205a67688b751298ad)
+++ library/lib/test.xotcl	(.../test.xotcl)	(revision 7121883918ed2a2591a63630bd465cd1d98eaa26)
@@ -121,9 +121,9 @@
   #catch {namespace eval $namespace {$cmd}} errorMsg
   catch $cmd ::xotcl::test::errorMsg
   if {$msg ne ""} {
-    set t [Test new -cmd {set ::xotcl::test::errorMsg} -msg $msg -namespace $namespace]
+    set t [Test new -cmd {set ::xotcl::test::errorMsg} -msg $msg -namespace $namespace -count 1]
   } else {
-    set t [Test new -cmd {set ::xotcl::test::errorMsg} -namespace $namespace]
+    set t [Test new -cmd {set ::xotcl::test::errorMsg} -namespace $namespace -count 1]
   }
   $t expected $expected 
   $t run