--- a/AbstractTime.st	Tue May 22 22:40:51 2018 +0200
+++ b/AbstractTime.st	Wed May 23 10:49:42 2018 +0200
@@ -1411,6 +1411,10 @@
         %(milli1) milliseconds, truncated to 1/10th of a second 0..9
         %(milli2) milliseconds, truncated to 1/100th of a second 00..99 0-padded to length 2
         %(milli3) milliseconds, padded to 3 (same as %i for convenience)
+        %(milliF1) milliseconds + 1 digits of micros
+        %(milliF2) milliseconds + 2 digits of micros
+        %(milliF3) milliseconds + 3 digits of micros
+        %(milliF4) milliseconds + 4 digits of micros
 
         %(micro) microseconds unpadded - alias for %J for convenience
         %(micro6) microseconds, padded to 6 (same as %j for convenience)
@@ -1511,11 +1515,19 @@
 
     aDictionary at:#milli1 put:((millis // 100) printString).
     aDictionary at:#milli2 put:((millis // 10) printStringLeftPaddedTo:2 with:$0).
+    aDictionary at:#milliF1 put:((micros asFixedPoint:1) / 1000).
+    aDictionary at:#milliF2 put:((micros asFixedPoint:2) / 1000).
+    aDictionary at:#milliF3 put:((micros asFixedPoint:3) / 1000).
+    aDictionary at:#milliF4 put:((nanos asFixedPoint:3) / 1000000).
 
     aDictionary at:$J put:(s := micros printString).
     aDictionary at:#micro put:s.
     aDictionary at:$j put:(t := s leftPaddedTo:6 with:$0).
     aDictionary at:#micro6 put:t.
+    aDictionary at:#microF1 put:((nanos asFixedPoint:1) / 1000).
+    aDictionary at:#microF2 put:((nanos asFixedPoint:2) / 1000).
+    aDictionary at:#microF3 put:((nanos asFixedPoint:3) / 1000).
+    aDictionary at:#microF4 put:((picos asFixedPoint:3) / 1000000).
 
     aDictionary at:#nano put:(s := nanos printString).
     aDictionary at:#nano9 put:(s leftPaddedTo:9 with:$0).
@@ -1544,7 +1556,19 @@
       Timestamp now printStringFormat:'%(micro6)'       -- micros padded  
       Timestamp now printStringFormat:'%(fract)'        -- fraction part - as needed
       Timestamp nowWithMicroseconds printStringFormat:'%(fract)'        -- fraction part - as needed
+
+      (TimeDuration fromMicroseconds:30) printStringFormat:'%(milliF1)ms'
+      (TimeDuration fromMicroseconds:30) printStringFormat:'%(milliF2)ms'
+      (TimeDuration fromMicroseconds:30) printStringFormat:'%(milliF3)ms'
+      (TimeDuration fromMicroseconds:30) printStringFormat:'%(milliF4)ms'
+
+      (TimeDuration fromNanoseconds:30) printStringFormat:'%(microF1)us'
+      (TimeDuration fromNanoseconds:30) printStringFormat:'%(microF2)us'
+      (TimeDuration fromNanoseconds:30) printStringFormat:'%(microF3)us'
+      (TimeDuration fromNanoseconds:30) printStringFormat:'%(microF4)us'
     "
+
+    "Modified (comment): / 23-05-2018 / 10:49:35 / Claus Gittinger"
 !
 
 addPrintBindingsTo:aDictionary