Index: library/lib/nx-test.tcl
===================================================================
diff -u -r04e3056621ba12a8eacb56a92f5d3d00fdbbbfbb -r9333bfa110291a29fa898b0ce554e8848db5d031
--- library/lib/nx-test.tcl	(.../nx-test.tcl)	(revision 04e3056621ba12a8eacb56a92f5d3d00fdbbbfbb)
+++ library/lib/nx-test.tcl	(.../nx-test.tcl)	(revision 9333bfa110291a29fa898b0ce554e8848db5d031)
@@ -97,13 +97,15 @@
       if {[info exists :pre]} {:call "pre" ${:pre}}
       if {![info exists :msg]} {set :msg ${:cmd}}
       set gotError [catch {:call "run" ${:cmd}} r]
+      #puts stderr "gotError = $gotError // $r == ${:expected} // [info exists :setResult]"
       if {[info exists :setResult]} {set r [eval [set :setResult]]}
       if {$r eq ${:expected}} {
         if {$gotError} {
           set c 1
         } else {
           if {[info exists :count]} {set c ${:count}} {set c 1000}
         }
+	#puts stderr "running test $c times"
 	if {[:verbose]} {puts stderr "running test $c times"}
 	if {$c > 1} {
 	  set r0 [time {time {::namespace eval ${:namespace} ";"} $c}]
@@ -112,7 +114,7 @@
 	  #puts stderr "running {time {::namespace eval ${:namespace} ${:cmd}} $c} => $r1"
 	  regexp {^(-?[0-9]+) +} $r1 _ mS1
 	  set ms [expr {($mS1 - $mS0) * 1.0 / $c}]
-	  puts stderr "[set :name]:\t[format %6.2f $ms] mms, ${:msg} (overhead [format %.2f [expr {$mS0*1.0/$c}]])"
+	  puts stderr "[set :name]:\t[format %6.2f $ms]\tmms, ${:msg} (overhead [format %.2f [expr {$mS0*1.0/$c}]])"
 	} else {
 	  puts stderr "[set :name]: ${:msg} ok"
 	}