--- a/AbstractTime.st	Fri Aug 23 17:31:58 2013 +0100
+++ b/AbstractTime.st	Wed Aug 28 10:47:51 2013 +0100
@@ -304,6 +304,29 @@
 
 !AbstractTime class methodsFor:'queries'!
 
+microsecondClockValue
+    "return microseconds seconds of now"
+
+    ^ OperatingSystem getMicrosecondTime
+
+    "
+     Time microsecondClockValue
+    "
+
+    "
+     |t1 t2 overhead|
+
+     t1 := Time microsecondClockValue.
+     t2 := Time microsecondClockValue.
+     overhead := t2 - t1.  
+
+     t1 := Time microsecondClockValue.
+     100 factorial.
+     t2 := Time microsecondClockValue.
+     t2 - t1 - overhead        
+    "
+!
+
 millisecondClockValue
     "return the millisecond clock - since this one overruns
      regularly, use the value only for short timing deltas.
@@ -446,7 +469,6 @@
     "
 ! !
 
-
 !AbstractTime methodsFor:'abstract'!
 
 hours
@@ -878,7 +900,6 @@
     ^ aTimestamp getSeconds - self getSeconds
 ! !
 
-
 !AbstractTime methodsFor:'printing & storing'!
 
 addPrintBindingsTo:aDictionary
@@ -1197,9 +1218,10 @@
 !AbstractTime class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.76 2012-11-05 12:59:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.77 2013-08-23 00:19:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.76 2012-11-05 12:59:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.77 2013-08-23 00:19:41 cg Exp $'
 ! !
+