Index: library/lib/test.tcl
===================================================================
diff -u -raaced4467cdf9fd24e428c1a319b355fb038412d -rc4ce5d5802925fc9a4c4cb8c80fc183e85ecc289
--- library/lib/test.tcl	(.../test.tcl)	(revision aaced4467cdf9fd24e428c1a319b355fb038412d)
+++ library/lib/test.tcl	(.../test.tcl)	(revision c4ce5d5802925fc9a4c4cb8c80fc183e85ecc289)
@@ -116,7 +116,6 @@
 	  #set r0 [time ${:cmd} $c]
 	  #puts stderr "time {time ${: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}]
 	  puts stderr "[set :name]:\t[format %6.2f $ms] mms, ${:msg}"