--- a/ByteArray.st	Wed Feb 22 19:01:54 2017 +0100
+++ b/ByteArray.st	Wed Feb 22 19:01:58 2017 +0100
@@ -2694,19 +2694,20 @@
 displayOn:aGCOrStream
     "return a printed representation of the receiver for displaying"
 
+    |cls|
+
     "/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
-    "/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
-    |cls|
-
+    "/ old ST80 means: draw-yourself on a GC.
     cls := self class.
     ((cls == ByteArray or:[cls == ImmutableByteArray]) and:[aGCOrStream isStream]) ifTrue:[
-	self storeOn:aGCOrStream.
-	^ self
+        self storeOn:aGCOrStream.
+        ^ self
     ].
     ^ super displayOn:aGCOrStream
 
-    "Created: 25.10.1995 / 13:33:26 / cg"
-    "Modified: 22.4.1996 / 12:54:06 / cg"
+    "Created: / 25-10-1995 / 13:33:26 / cg"
+    "Modified: / 22-04-1996 / 12:54:06 / cg"
+    "Modified (comment): / 22-02-2017 / 16:54:27 / cg"
 !
 
 printOn:aStream