diff -r e512db43c3d7 -r 4f0593d4b67c TimeDuration.st
--- a/TimeDuration.st	Mon Jun 12 20:50:22 2017 +0200
+++ b/TimeDuration.st	Mon Jun 12 20:51:51 2017 +0200
@@ -649,37 +649,46 @@
 !
 
 productFromFloat:aFloat
-    "return a new timeDuration"
+    "sent when aFloat does not know how to multiply the receiver.
+     Return a new timeDuration"
 
     ^ self productFromNumber:aFloat
 
     "
      5.1 * (TimeDuration fromString:'10s') 
     "
+
+    "Modified (comment): / 12-06-2017 / 20:51:38 / cg"
 !
 
-productFromFraction:aNumber
-    "return a new timeDuration"
+productFromFraction:aFraction
+    "sent when aFraction does not know how to multiply the receiver.
+     Return a new timeDuration"
 
-    ^ self productFromNumber:aNumber
+    ^ self productFromNumber:aFraction
 
     "
      (TimeDuration fromString:'10s') * 5
     "
+
+    "Modified (comment): / 12-06-2017 / 20:51:25 / cg"
 !
 
 productFromInteger:anInteger
-    "return a new timeDuration"
+    "sent when an integer does not know how to multiply the receiver"
 
     ^ self productFromNumber:anInteger
 
     "
      5 * (TimeDuration fromString:'10s') 
     "
+
+    "Modified (comment): / 12-06-2017 / 20:50:56 / cg"
 !
 
 productFromNumber:aNumber
-    "return a new timeDuration"
+    "sent when an integer does not know how to multiply the receiver.
+     Return a new timeDuration"
 
     ^ self species basicNew 
         setMilliseconds:(self getMilliseconds * aNumber) asInteger
@@ -687,6 +696,8 @@
     "
      5.1 * (TimeDuration fromString:'10s') 
     "
+
+    "Modified (comment): / 12-06-2017 / 20:50:51 / cg"
 ! !
 
 !TimeDuration methodsFor:'converting'!