--- a/Time.st	Mon Jan 21 10:30:42 2019 +0100
+++ b/Time.st	Mon Jan 21 10:30:55 2019 +0100
@@ -812,11 +812,16 @@
     "return an TimeDuration object from the receiver, taking the time since midnight."
 
     ^ TimeDuration
-		   hours:(self hours) minutes:(self minutes) seconds:(self seconds)
-		   milliseconds:(self milliseconds)
+                   hours:(self hours) minutes:(self minutes) seconds:(self seconds)
+                   milliseconds:(self milliseconds)
     "
      Time now asTimeDuration
+     10 asTimeDuration
+     10 seconds asTimeDuration
+     '10m 20s' asTimeDuration
     "
+
+    "Modified (comment): / 21-01-2019 / 10:29:05 / Claus Gittinger"
 !
 
 asTimestamp