--- a/Time.st	Mon Jul 01 15:33:58 1996 +0200
+++ b/Time.st	Mon Jul 01 15:35:03 1996 +0200
@@ -17,7 +17,7 @@
 	category:'Magnitude-General'
 !
 
-!Time class methodsFor:'documentation'!
+!Time  class methodsFor:'documentation'!
 
 copyright
 "
@@ -65,7 +65,7 @@
 "
 ! !
 
-!Time class methodsFor:'instance creation'!
+!Time  class methodsFor:'instance creation'!
 
 hour:h minutes:m seconds:s
     "return an instance of Time representing the given time.
@@ -316,19 +316,21 @@
 
 !Time methodsFor:'private'!
 
-fromOSTimeLow:lowOSTime and:hiOSTime
-    "set my time, given operatingSystems time parts"
+fromOSTime:osTime
+    "set my time, given an osTime"
 
     |h m s|
-    OperatingSystem computeTimePartsOf:lowOSTime and:hiOSTime for:[
-	:hours :minutes :secs |
+
+    OperatingSystem computeTimePartsOf:osTime for:[
+        :hours :minutes :secs :millis |
 
-	h := hours.
-	m := minutes.
-	s := secs.
+        h := hours.
+        m := minutes.
+        s := secs.
     ].
     self setHour:h minutes:m seconds:s
 
+    "Modified: 1.7.1996 / 15:21:06 / cg"
 !
 
 getSeconds
@@ -361,8 +363,8 @@
     timeEncoding := encoding
 ! !
 
-!Time class methodsFor:'documentation'!
+!Time  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.28 1996-05-18 15:31:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.29 1996-07-01 13:35:03 cg Exp $'
 ! !