--- a/Time.st	Mon Sep 05 11:19:51 2011 +0200
+++ b/Time.st	Mon Sep 05 15:03:28 2011 +0200
@@ -298,6 +298,12 @@
 
 !Time methodsFor:'Compatibility-Squeak'!
 
+asMilliseconds
+    ^ self asMilliSeconds
+
+    "Created: / 05-09-2011 / 14:56:36 / cg"
+!
+
 intervalString
     "Treat the time as a difference.  
      Give it in hours and minutes with two digits of accuracy."
@@ -801,9 +807,9 @@
 !Time class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.91 2011-09-05 08:57:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.92 2011-09-05 13:03:28 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.91 2011-09-05 08:57:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.92 2011-09-05 13:03:28 cg Exp $'
 ! !