--- a/extensions.st	Fri Jun 07 12:31:39 2019 +0200
+++ b/extensions.st	Fri Jun 07 12:32:11 2019 +0200
@@ -2370,10 +2370,10 @@
 inspectorExtraAttributes
     "extra (pseudo instvar) entries to be shown in an inspector.
      Answers a dictionary of aString -> aBlock.
-     aString is name of extra attribute and MUST start with minus ($-).
-     aBlock returns the object representing extra attribute."
-
-    ^ Dictionary new.
+       aString is name of extra attribute and MUST start with minus ($-).
+       aBlock returns the object representing extra attribute"
+
+    ^ OrderedDictionary new.
 
     " Try to uncomment following and inspect any object "
 
@@ -2384,6 +2384,7 @@
     "Created: / 16-08-2005 / 20:43:33 / janfrog"
     "Modified: / 02-09-2005 / 19:00:01 / janfrog"
     "Modified: / 04-10-2006 / 14:33:34 / cg"
+    "Modified (comment): / 07-06-2019 / 12:25:22 / Claus Gittinger"
 ! !
 
 !Object methodsFor:'inspecting'!
@@ -3068,8 +3069,15 @@
         add:'-daysInMonth' -> [ self asDate daysInMonth ];
         add:'-monthName'   -> [ self asDate monthName ];
         add:'-weekNr'      -> [ self asDate weekInYear ];
-        add:'-leapYear'    -> [ self asDate isLeapYear ];
-        add:'-iso8601(utc)'-> [ self asUtcTimestamp printStringIso8601 ].
+        add:'-leapYear'    -> [ self asDate isLeapYear ].
+    self isUtcTimestamp ifTrue:[
+        attrs add:'-iso8601'      -> [ self printStringIso8601 ].
+        attrs add:'-rfc1123'      -> [ self asUtcTimestamp printStringRFC1123Format ].
+    ] ifFalse:[    
+        attrs add:'-iso8601 (utc)'-> [ self asUtcTimestamp printStringIso8601 ].
+        attrs add:'-iso8601 (tz)' -> [ self printStringIso8601 ].
+        attrs add:'-rfc1123 (GMT)'-> [ self asUtcTimestamp printStringRFC1123Format ].
+    ]. 
     self milliseconds ~~ 0 ifTrue:[ 
         attrs add:'-millisecond' -> [ self milliseconds ].
     ].
@@ -3090,6 +3098,7 @@
 
     "Created: / 20-01-2011 / 12:19:05 / cg"
     "Modified (format): / 18-07-2017 / 19:54:31 / cg"
+    "Modified: / 07-06-2019 / 12:18:00 / Claus Gittinger"
 ! !
 
 !Timestamp methodsFor:'inspecting'!