--- a/Time.st	Fri May 25 12:17:48 2018 +0200
+++ b/Time.st	Fri May 25 12:17:57 2018 +0200
@@ -546,6 +546,8 @@
     ^ '%h:%m:%s.%i'
 ! !
 
+
+
 !Time methodsFor:'Compatibility-Backward'!
 
 asMilliSeconds
@@ -926,6 +928,26 @@
     "
 !
 
+printIso8601CompressedOn:aStream
+    "prints the receiver as local time"
+
+    Timestamp timestampISO8601Builder
+        print:self compact:true
+        asLocal:true asUTC:false withMilliseconds:true
+        timeSeparator:$T timeOnly:true
+        on:aStream
+
+    "
+     Time now printString           -> '04:23:33 PM'
+     Time now printStringIso8601    -> 'T16:23:39'  (notice: this is local time)
+
+     Time now printAsUTCIso8601FormatOn:Transcript. Transcript cr.
+     Time now printIso8601FormatOn:Transcript. Transcript cr. 
+    "
+
+    "Created: / 25-05-2018 / 12:06:35 / Claus Gittinger"
+!
+
 printIso8601FormatOn:aStream
     "prints the receiver as local time"
 
@@ -1143,6 +1165,7 @@
     timeEncoding := encoding
 ! !
 
+
 !Time methodsFor:'visiting'!
 
 acceptVisitor:aVisitor with:aParameter