Index: library/lib/test.xotcl
===================================================================
diff -u -r73eb4eccd33d1a940e2d2ca6dccc2f74216f0576 -rf279bf06b31139084edd5136824a1e2622265e00
--- library/lib/test.xotcl	(.../test.xotcl)	(revision 73eb4eccd33d1a940e2d2ca6dccc2f74216f0576)
+++ library/lib/test.xotcl	(.../test.xotcl)	(revision f279bf06b31139084edd5136824a1e2622265e00)
@@ -68,7 +68,7 @@
     
     .public method call {msg cmd} {
       if {[.verbose]} {puts stderr "$msg: $cmd"}
-      namespace eval [set .namespace] $cmd
+      namespace eval ${.namespace} $cmd
     }
    
     .public method run args {
@@ -84,7 +84,7 @@
 	if {$c > 1} {
 	  #set r0 [time ${.cmd} $c]
 	  #puts stderr "time {time ${.cmd} $c}"
-	  set r1 [time {time {namespace eval [set .namespace] ${.cmd}} $c}]
+	  set r1 [time {time {namespace eval ${.namespace} ${.cmd}} $c}]
 	  #regexp {^(-?[0-9]+) +} $r0 _ mS0
 	  regexp {^(-?[0-9]+) +} $r1 _ mS1
 	  set ms [expr {$mS1*1.0/$c}]
@@ -106,10 +106,12 @@
 }
 
 proc ? {cmd expected {msg ""}} {
+  set namespace [uplevel {namespace current}]
+  #puts stderr "eval in namespace $namespace"
   if {$msg ne ""} {
-    set t [Test new -cmd $cmd -msg $msg]
+    set t [Test new -cmd $cmd -msg $msg -namespace $namespace]
   } else {
-    set t [Test new -cmd $cmd]
+    set t [Test new -cmd $cmd -namespace $namespace]
   }
   $t expected $expected 
   $t run