--- a/AbstractTime.st	Sun May 13 17:49:01 2018 +0200
+++ b/AbstractTime.st	Sun May 13 17:52:10 2018 +0200
@@ -1168,6 +1168,9 @@
         otherMilliseconds := (aTimeOrTimeDurationOrNumberOfSeconds * 1000) asInteger.   "integer seconds"
         otherPicos := 0.
     ] ifFalse:[
+        self speciesForCompare = aTimeOrTimeDurationOrNumberOfSeconds speciesForCompare ifFalse:[   
+            ^ false        
+        ].
         otherMilliseconds := aTimeOrTimeDurationOrNumberOfSeconds getMilliseconds.
         otherPicos := aTimeOrTimeDurationOrNumberOfSeconds additionalPicoseconds.
     ].
@@ -1177,6 +1180,9 @@
         (Timestamp now + 10) - Timestamp now  = 10
         (Timestamp now + 10) - Timestamp now  = 9
 
+        (Timestamp now) = (Timestamp now + 10 - 10)
+        (Timestamp now) = (UtcTimestamp now)
+
         (Time now + 10 seconds) - Time now  = 10
         (Time now + 10) - Time now          = 10
 
@@ -1334,6 +1340,7 @@
     "/ ^ aTimestamp getSeconds - self getSeconds
 ! !
 
+
 !AbstractTime methodsFor:'printing & storing'!
 
 addBasicPrintBindingsTo:aDictionary language:languageOrNil