--- a/Time.st	Wed Jul 18 12:31:37 2007 +0200
+++ b/Time.st	Wed Jul 18 14:16:21 2007 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic' }"
 
 AbstractTime subclass:#Time
@@ -441,10 +440,12 @@
     "return true if the argument, aTime represents the same timeOfDay"
 
     aTime class == self class ifTrue:[
-        ^ timeEncoding == aTime timeEncoding
+        ^ timeEncoding = aTime timeEncoding
     ].
     (aTime species == self species) ifFalse:[^ false].
-    ^ self getSeconds == aTime getSeconds
+    ^ self getSeconds = aTime getSeconds
+
+    "Modified: / 18-07-2007 / 14:16:34 / cg"
 !
 
 > aTime
@@ -708,5 +709,5 @@
 !Time class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.79 2006-07-17 09:54:32 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.80 2007-07-18 12:16:21 cg Exp $'
 ! !