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