--- a/Timestamp.st	Thu Sep 29 21:38:11 1994 +0100
+++ b/Timestamp.st	Mon Oct 10 01:20:00 1994 +0100
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -19,9 +19,9 @@
 
 AbsoluteTime comment:'
 COPYRIGHT (c) 1989 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.5 1994-08-05 00:53:32 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.6 1994-10-10 00:19:36 claus Exp $
 '!
 
 !AbsoluteTime class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
 copyright
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.5 1994-08-05 00:53:32 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.6 1994-10-10 00:19:36 claus Exp $
 "
 !
 
@@ -64,7 +64,7 @@
     we keep low and hi 16bits of the time separately (it could have been 
     implemented using LargeIntegers though).
 
-    This class is typically abstract (it does not have to be though).
+    This class is typically abstract (it does not have to be, though).
     See Time for more details.
 "
 ! !
@@ -129,9 +129,9 @@
     |hr|
 
     OperatingSystem computeTimePartsOf:secondsLow and:secondsHi for:[
-        :hours :minutes :secs |
+	:hours :minutes :secs |
 
-        hr := hours
+	hr := hours
     ].
     ^ hr
 !
@@ -142,9 +142,9 @@
     |m|
 
     OperatingSystem computeTimePartsOf:secondsLow and:secondsHi for:[
-        :hours :minutes :secs |
+	:hours :minutes :secs |
 
-        m := minutes
+	m := minutes
     ].
     ^ m
 !
@@ -155,9 +155,9 @@
     |s|
 
     OperatingSystem computeTimePartsOf:secondsLow and:secondsHi for:[
-        :hours :minutes :secs |
+	:hours :minutes :secs |
 
-        s := secs
+	s := secs
     ].
     ^ s
 !
@@ -167,8 +167,8 @@
      Obsolete; use instances of Date for this."
 
     OperatingSystem computeDatePartsOf:secondsLow and:secondsHi
-                                   for:[:year :month :day |
-        ^ day
+				   for:[:year :month :day |
+	^ day
     ]
 
     "
@@ -181,8 +181,8 @@
      Obsolete; use instances of Date for this."
 
     OperatingSystem computeDatePartsOf:secondsLow and:secondsHi
-                                   for:[:year :month :day |
-        ^ month
+				   for:[:year :month :day |
+	^ month
     ]
 
     "
@@ -195,8 +195,8 @@
      Obsolete; use instances of Date for this."
 
     OperatingSystem computeDatePartsOf:secondsLow and:secondsHi
-                                   for:[:year :month :day |
-        ^ year
+				   for:[:year :month :day |
+	^ year
     ]
 
     "
@@ -219,13 +219,14 @@
 !
 
 = aTime
+    (aTime species == self species) ifFalse:[^ false].
     ^ (secondsLow == aTime secondsLow) and:[secondsHi == aTime secondsHi]
 !
 
 hash
     "return an integer useful for hashing on times"
 
-    ^ secondsLow
+    ^ (secondsLow bitShift:16) bitOr:secondsLow
 ! !
 
 !AbsoluteTime methodsFor:'arithmetic'!