# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1452707239 -3600
# Node ID b2cd3ed0cb02854f24213a6ee6497550e0f307ad
# Parent  1d3173b3a2915c87515496243a57e8e0b27f01dc
#FEATURE
class: TimeDuration
changed: #/
support double dispatch

diff -r 1d3173b3a291 -r b2cd3ed0cb02 TimeDuration.st
--- a/TimeDuration.st	Wed Jan 13 18:45:44 2016 +0100
+++ b/TimeDuration.st	Wed Jan 13 18:47:19 2016 +0100
@@ -544,8 +544,11 @@
         ^ self species basicNew 
             setMilliseconds:(self getMilliseconds / aTimeDurationOrNumberOfSeconds) asInteger
     ].
-    ^ (self getMilliseconds / aTimeDurationOrNumberOfSeconds getMilliseconds)
-
+    aTimeDurationOrNumberOfSeconds isTimeDuration ifTrue:[
+        ^ (self getMilliseconds / aTimeDurationOrNumberOfSeconds getMilliseconds)
+    ].
+    ^ aTimeDurationOrNumberOfSeconds quotientFromTimeDuration:self
+    
     "
      (TimeDuration fromString:'10s') / (TimeDuration fromString:'5s')
      (TimeDuration fromString:'10s') / 5