--- a/Time.st	Fri Feb 25 14:03:58 1994 +0100
+++ b/Time.st	Fri Feb 25 14:05:47 1994 +0100
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Time.st,v 1.6 1994-01-08 16:24:16 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Time.st,v 1.7 1994-02-25 13:05:47 claus Exp $
 '!
 
 !Time class methodsFor:'instance creation'!
@@ -32,6 +32,13 @@
 
     ^ self basicNew setSecondsLow:(OperatingSystem getTimeLow)
                               and:(OperatingSystem getTimeHi)
+!
+
+fromOSTime:osTime
+    "return a time, representing the time given by the operatingSystem time"
+
+    ^ self basicNew setSecondsLow:(osTime at:1)
+                              and:(osTime at:2)
 ! !
 
 !Time class methodsFor:'ST-80 compatibility'!
@@ -71,6 +78,10 @@
 
 !Time methodsFor:'printing'!
 
+printOn:aStream
+    aStream nextPutAll:self printString
+!
+
 printString
     |aString|