--- a/Time.st	Wed May 08 12:54:16 2019 +0200
+++ b/Time.st	Wed May 08 13:06:46 2019 +0200
@@ -546,8 +546,6 @@
     ^ '%h:%m:%s.%i'
 ! !
 
-
-
 !Time methodsFor:'Compatibility-Backward'!
 
 asMilliSeconds
@@ -736,20 +734,6 @@
 
 !Time methodsFor:'comparing'!
 
-differenceFromTimestamp:aTimestamp
-    "return the time difference as a timeDuration instance.
-     Use only the time part of aTimestamp (so intrepret it as a time today)."
-
-    ^ TimeDuration basicNew setMilliseconds:aTimestamp asTime getMilliseconds - self getMilliseconds.
-
-    "
-        Time nowWithMilliseconds differenceFromTimestamp:Timestamp now.
-        Time now differenceFromTimestamp:Time now + 1 seconds
-    "
-
-    "Created: / 27-07-2018 / 11:23:37 / Stefan Vogel"
-!
-
 hash
     "return an integer useful for hashing on times"
 
@@ -853,6 +837,23 @@
     "Modified (comment): / 17-07-2017 / 14:09:45 / cg"
 ! !
 
+!Time methodsFor:'double dispatching'!
+
+differenceFromTimestamp:aTimestamp
+    "return the time difference as a timeDuration instance.
+     Use only the time part of aTimestamp (so interpret it as a time today)."
+
+    ^ TimeDuration basicNew setMilliseconds:aTimestamp asTime getMilliseconds - self getMilliseconds.
+
+    "
+        Time nowWithMilliseconds differenceFromTimestamp:Timestamp now.
+        Time now differenceFromTimestamp:Time now + 1 seconds
+    "
+
+    "Created: / 27-07-2018 / 11:23:37 / Stefan Vogel"
+    "Modified (comment): / 08-05-2019 / 13:06:35 / Claus Gittinger"
+! !
+
 !Time methodsFor:'printing & storing'!
 
 print12HourFormatOn:aStream
@@ -1186,7 +1187,6 @@
     timeEncoding := encoding
 ! !
 
-
 !Time methodsFor:'visiting'!
 
 acceptVisitor:aVisitor with:aParameter