Index: library/lib/test.xotcl
===================================================================
diff -u -rc6066a15de738754028991b2b57b8f1d5a1cccaa -r670151ba40e8da27625ed679f2d3ff58d1763239
--- library/lib/test.xotcl	(.../test.xotcl)	(revision c6066a15de738754028991b2b57b8f1d5a1cccaa)
+++ library/lib/test.xotcl	(.../test.xotcl)	(revision 670151ba40e8da27625ed679f2d3ff58d1763239)
@@ -68,12 +68,12 @@
     
     :public method call {msg cmd} {
       if {[:verbose]} {puts stderr "$msg: $cmd"}
-      #if {[catch {namespace eval ${:namespace} $cmd} result]} {
+      #if {[catch {::namespace eval ${:namespace} $cmd} result]} {
         #puts stderr ERROR=$result
       #}
       #puts stderr "$msg: $cmd => $result"
       #return $result
-      return [namespace eval ${:namespace} $cmd]
+      return [::namespace eval ${:namespace} $cmd]
     }
    
     :public method run args {
@@ -93,7 +93,7 @@
 	if {$c > 1} {
 	  #set r0 [time ${:cmd} $c]
 	  #puts stderr "time {time ${:cmd} $c}"
-	  set r1 [time {time {namespace eval ${: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}]
@@ -111,11 +111,11 @@
     }
 
   }
-  namespace export Test
+  ::namespace export Test
 }
 
 proc ? {cmd expected {msg ""}} {
-  set namespace [uplevel {namespace current}]
+  set namespace [uplevel {::namespace current}]
   #puts stderr "eval in namespace $namespace"
   if {$msg ne ""} {
     set t [Test new -cmd $cmd -msg $msg -namespace $namespace]