--- a/AbstractTime.st	Wed Sep 22 16:35:10 2004 +0200
+++ b/AbstractTime.st	Wed Sep 22 16:42:22 2004 +0200
@@ -274,10 +274,10 @@
     startTime := OperatingSystem getMillisecondTime.
     aBlock value.
     endTime := OperatingSystem getMillisecondTime.
-    ^ endTime - startTime
+    ^ self milliseconds:endTime since:startTime
 
     "
-     Time millisecondsToRun:[100 factorial]  
+     Time millisecondsToRun:[1000 factorial]  
     "
 
     "Modified: 17.6.1996 / 16:57:37 / cg"
@@ -1034,5 +1034,5 @@
 !AbstractTime class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.49 2004-07-14 21:43:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.50 2004-09-22 14:42:22 stefan Exp $'
 ! !