Index: library/lib/nx-test.tcl
===================================================================
diff -u -red172f2c771eab171130a72af81921b910736989 -rb4e6c8da93f250a75e634cf9ecd317432cbd2199
--- library/lib/nx-test.tcl	(.../nx-test.tcl)	(revision ed172f2c771eab171130a72af81921b910736989)
+++ library/lib/nx-test.tcl	(.../nx-test.tcl)	(revision b4e6c8da93f250a75e634cf9ecd317432cbd2199)
@@ -35,24 +35,24 @@
     :class variable failure 0
     :class variable testfile ""
     :class variable count 0
-    :class variable time 0
+    :class variable ms 0
 
     :public class method success {} {
       incr :success
     }
     :public class method failure {} {
       incr :failure
     }
-    :public class method time {ms:double} {
-      set :time [expr {${:time} + $ms}]
+    :public class method ms {ms:double} {
+      set :ms [expr {${:ms} + $ms}]
     }
     :public class method destroy {} {
       lappend msg \
 	  file [file rootname [file tail ${:testfile}]] \
 	  tests [expr {${:success} + ${:failure}}] \
 	  success ${:success} \
 	  failure ${:failure} \
-	  time ${:time} 
+	  ms ${:ms} 
       puts "Summary: $msg"
       array set "" $::argv
       if {[info exists (-testlog)]} {
@@ -168,7 +168,7 @@
 	:exit -1
       }
       if {[info exists :post]} {:call "post" ${:post}}
-      ::nx::Test time [expr {[clock clicks -milliseconds]-$startTime}]
+      ::nx::Test ms [expr {[clock clicks -milliseconds]-$startTime}]
       :exitOff
     }
 
Index: tests/summary.tcl
===================================================================
diff -u -red172f2c771eab171130a72af81921b910736989 -rb4e6c8da93f250a75e634cf9ecd317432cbd2199
--- tests/summary.tcl	(.../summary.tcl)	(revision ed172f2c771eab171130a72af81921b910736989)
+++ tests/summary.tcl	(.../summary.tcl)	(revision b4e6c8da93f250a75e634cf9ecd317432cbd2199)
@@ -8,22 +8,22 @@
 
 if {[info exists opt(-testlog)]} {
   set f [open $opt(-testlog)]; set content [read $f]; close $f
-  lassign {0 0 0 0 0.0} tests success failures files time
+  lassign {0 0 0 0 0.0} tests success failures files ms
   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)}]
+      set ms [expr {$ms + $(ms)}]
     }
   }
 
   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 in time [expr {$time / 1000.0}] seconds"
+  puts "\tNSF performed $tests tests in $files files, success $success, failures $failures in [expr {$ms / 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."