Index: TODO
===================================================================
diff -u -r98775245c7eb6eb2662fbccfd9fea1f30bd5f3d8 -r68d9af77ff619c859d4fe1d7123326c3cfa70b18
--- TODO	(.../TODO)	(revision 98775245c7eb6eb2662fbccfd9fea1f30bd5f3d8)
+++ TODO	(.../TODO)	(revision 68d9af77ff619c859d4fe1d7123326c3cfa70b18)
@@ -4618,6 +4618,9 @@
   we might wish a more general solution (see comment
   for futures releases)
   
+nx::test:
+- deactivate calling overhead calculation, since this
+  is not reliable (sometimes larger than the call).
 ========================================================================
 TODO:
 
Index: library/lib/nx-test.tcl
===================================================================
diff -u -rb75c1ecb1468dcb58d620fa93aefb3ccd266903c -r68d9af77ff619c859d4fe1d7123326c3cfa70b18
--- library/lib/nx-test.tcl	(.../nx-test.tcl)	(revision b75c1ecb1468dcb58d620fa93aefb3ccd266903c)
+++ library/lib/nx-test.tcl	(.../nx-test.tcl)	(revision 68d9af77ff619c859d4fe1d7123326c3cfa70b18)
@@ -139,16 +139,23 @@
 	#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}]
-	  regexp {^(-?[0-9]+) +} $r0 _ mS0
+	  #
+	  # The following line was used to calculate calling-overhead.
+	  # deactivated for now, since sometimes the reported calling
+	  # overhead was larger than the call.
+	  #
+	  #set r0 [time {time {::namespace eval ${:namespace} ";"} $c}]
+	  #regexp {^(-?[0-9]+) +} $r0 _ mS0
 	  set r1 [time {time {::namespace eval ${:namespace} ${:cmd}} $c}]
 	  #puts stderr "running {time {::namespace eval ${:namespace} ${:cmd}} $c} => $r1"
 	  regexp {^(-?[0-9]+) +} $r1 _ mS1
-	  set ms [expr {($mS1 - $mS0) * 1.0 / $c}]
+	  #set ms [expr {($mS1 - $mS0) * 1.0 / $c}]
+	  set ms [expr {$mS1 * 1.0 / $c}]
 	  # if for some reason the run of the test is faster than the
 	  # body-less eval, don't report negative values.
-	  if {$ms < 0} {set ms 0.0}
-	  puts stderr "[set :name]:\t[format %6.2f $ms]\tmms, ${:msg} (overhead [format %.2f [expr {$mS0*1.0/$c}]])"
+	  #if {$ms < 0} {set ms 0.0}
+	  #puts stderr "[set :name]:\t[format %6.2f $ms]\tmms, ${:msg} (overhead [format %.2f [expr {$mS0*1.0/$c}]])"
+	  puts stderr "[set :name]:\t[format %6.2f $ms]\tmms, ${:msg}"
 	} else {
 	  puts stderr "[set :name]: ${:msg} ok"
 	}