Index: tests/summary.tcl
===================================================================
diff -u -N -r67c92d72f53bd368ff0fce6555ec803e859d7300 -red172f2c771eab171130a72af81921b910736989
--- tests/summary.tcl	(.../summary.tcl)	(revision 67c92d72f53bd368ff0fce6555ec803e859d7300)
+++ tests/summary.tcl	(.../summary.tcl)	(revision ed172f2c771eab171130a72af81921b910736989)
@@ -1,21 +1,29 @@
+# -*- Tcl -*-
+#
+# This script computes the regression test summary displayed at the
+# end of the regression test. It aggreates the content of the test log
+# provided via arg "-testlog".
 
 array set opt $::argv
+
 if {[info exists opt(-testlog)]} {
   set f [open $opt(-testlog)]; set content [read $f]; close $f
-  lassign {0 0 0 0} tests success failures files
+  lassign {0 0 0 0 0.0} tests success failures files time
   foreach l [split $content \n] {
     array set "" $l
     if {[info exists (tests)]} {
       incr tests $(tests)
       incr failures $(failure)
       incr success $(success)
       incr files 1
+      set time [expr {$time + $(time)}]
     }
   }
+
   puts "\nRegression Test Summary:"
   puts "\tEnvironment: Tcl $tcl_patchLevel, OS $tcl_platform(os) $tcl_platform(osVersion)\
 	machine $tcl_platform(machine) threaded $tcl_platform(threaded)."
-  puts "\tNSF performed $tests tests in $files files, success $success, failures $failures."
+  puts "\tNSF performed $tests tests in $files files, success $success, failures $failures in time [expr {$time / 1000.0}] seconds"
   if {$failures == 0} {
     puts "\tCongratulations, NSF [package require nsf], NX [package require nx], and\
 	XOTcl [package require XOTcl 2] work fine in your environment."