--- a/Color.st	Wed Jul 17 10:31:26 2019 +0200
+++ b/Color.st	Thu Jul 18 12:28:23 2019 +0200
@@ -5957,6 +5957,20 @@
 
 !Color methodsFor:'printing & storing'!
 
+displayOn:aStream
+    aStream nextPutAll:self className.
+    aStream nextPutAll:'('.
+    aStream nextPutAll:self htmlPrintString.
+    aStream nextPutAll:')'.
+
+    "
+     Color red printString
+     Color red displayString
+    "
+
+    "Created: / 18-07-2019 / 12:27:33 / Claus Gittinger"
+!
+
 hex
     <resource: #obsolete>