--- 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