--- a/AbstractTime.st	Mon Oct 04 17:06:44 1999 +0200
+++ b/AbstractTime.st	Mon Oct 04 17:11:23 1999 +0200
@@ -447,6 +447,7 @@
         %u      hours, 00..12 (i.e. us)        0-padded to length 2
         %m      minutes, 00..59                0-padded to length 2
         %s      seconds, 00..59                0-padded to length 2
+        %i      milliseconds, 000..999         0-padded to length 3
         %a      am/pm
 
      special:
@@ -454,17 +455,19 @@
         %U      12-hours - unpadded
         %M      minutes - unpadded
         %S      seconds - unpadded
+        %I      milliseconds, unpadded
         %A      AM/PM   - uppercase
 
         %t      seconds within hour  (unpadded)
         %T      seconds from midNight  (unpadded)
     "
 
-    |dict hours minutes seconds usHours ampm s|
+    |dict hours minutes seconds millis usHours ampm s|
 
     hours := self hours.
     minutes := self minutes.
     seconds := self seconds.
+    millis := self milliseconds.
 
     hours // 12 == 0 ifTrue:[
         ampm := 'am'.
@@ -485,6 +488,8 @@
     dict at:$m put:(s leftPaddedTo:2 with:$0).
     dict at:$S put:(s := seconds printString).
     dict at:$s put:(s leftPaddedTo:2 with:$0).
+    dict at:$I put:(s := millis printString).
+    dict at:$i put:(s leftPaddedTo:3 with:$0).
     dict at:$t put:(seconds * minutes) printString.
     dict at:$T put:(seconds * minutes * hours) printString.
     dict at:$a put:ampm.
@@ -558,5 +563,5 @@
 !AbstractTime class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.18 1999-10-04 10:42:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.19 1999-10-04 15:11:23 cg Exp $'
 ! !