Index: library/lib/test.xotcl
===================================================================
diff -u -r70b3b6899c6b462b4c52d864617d8da2ce3a8f5a -r2c178b51df714386e72cfcb05f89c89995668b2d
--- library/lib/test.xotcl	(.../test.xotcl)	(revision 70b3b6899c6b462b4c52d864617d8da2ce3a8f5a)
+++ library/lib/test.xotcl	(.../test.xotcl)	(revision 2c178b51df714386e72cfcb05f89c89995668b2d)
@@ -54,7 +54,7 @@
       set :case $name
       if {[info exists arg]} {
         foreach o [Object info instances -closure] {set pre_exist($o) 1}
-        namespace eval :: [list $o eval $arg]
+        namespace eval :: [list [self] eval $arg]
         foreach o [Object info instances -closure] {
           if {[info exists pre_exist($o)]} continue
           #puts "must destroy $o"
@@ -141,6 +141,7 @@
 
 proc ? {cmd expected {msg ""}} {
   set namespace [uplevel {::namespace current}]
+  if {[string match ::xotcl* $namespace]} {set namespace ::}
   #puts stderr "eval in namespace $namespace"
   if {$msg ne ""} {
     set t [Test new -cmd $cmd -msg $msg -namespace $namespace]