Index: library/lib/test.xotcl
===================================================================
diff -u -r210eab6d9149846d5d6a6a8e0fa74e232ca5b6de -rf6be532e62dfbe148ebca8205a67688b751298ad
--- library/lib/test.xotcl	(.../test.xotcl)	(revision 210eab6d9149846d5d6a6a8e0fa74e232ca5b6de)
+++ library/lib/test.xotcl	(.../test.xotcl)	(revision f6be532e62dfbe148ebca8205a67688b751298ad)
@@ -116,5 +116,17 @@
   $t expected $expected 
   $t run
 }
+proc ?? {cmd expected {msg ""}} {
+  set namespace [uplevel {namespace current}]
+  #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]
+  } else {
+    set t [Test new -cmd {set ::xotcl::test::errorMsg} -namespace $namespace]
+  }
+  $t expected $expected 
+  $t run
+}
 
 namespace import ::xotcl::test::*