--- a/TimeDuration.st	Tue Feb 21 15:47:04 2017 +0100
+++ b/TimeDuration.st	Tue Feb 21 15:47:24 2017 +0100
@@ -725,6 +725,12 @@
     "answer the duration is seconds"
 
     ^ self getSeconds
+
+    "
+        10 milliseconds asInteger
+    "
+
+    "Modified (comment): / 21-02-2017 / 14:41:04 / stefan"
 !
 
 asLongFloat