--- a/AbstractTime.st	Sun Mar 21 19:37:43 2010 +0000
+++ b/AbstractTime.st	Thu Apr 08 18:25:02 2010 +0100
@@ -308,6 +308,21 @@
 
 !AbstractTime class methodsFor:'timing evaluations'!
 
+microsecondsToRun:aBlock
+    "evaluate the argument, aBlock; return the number of milliseconds it took"
+
+    |startTime endTime|
+
+    startTime := OperatingSystem getMicrosecondTime.
+    aBlock value.
+    endTime := OperatingSystem getMicrosecondTime.
+    ^ endTime - startTime
+
+    "
+     Time microsecondsToRun:[1000 factorial]  
+    "
+!
+
 millisecondsToRun:aBlock
     "evaluate the argument, aBlock; return the number of milliseconds it took"
 
@@ -1140,11 +1155,12 @@
 !AbstractTime class methodsFor:'documentation'!
 
 version
-    ^ '$Id: AbstractTime.st 10496 2010-02-01 10:03:06Z vranyj1 $'
+    ^ '$Id: AbstractTime.st 10510 2010-04-08 17:25:02Z vranyj1 $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.67 2010/01/27 14:09:56 sr Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.68 2010/03/31 13:52:36 stefan Exp §'
 ! !
 
 
+