--- a/ExternalBytes.st	Wed Feb 22 19:10:15 2017 +0100
+++ b/ExternalBytes.st	Wed Feb 22 19:11:25 2017 +0100
@@ -774,7 +774,6 @@
     "
 ! !
 
-
 !ExternalBytes methodsFor:'accessing'!
 
 address
@@ -1234,35 +1233,35 @@
     |addr|
 
     "/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
-    "/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
+    "/ old ST80 means: draw-yourself on a GC.
     (aGCOrStream isStream) ifFalse:[
-	^ super displayOn:aGCOrStream
+        ^ super displayOn:aGCOrStream
     ].
 
     aGCOrStream nextPutAll:self className.
     addr := self address.
     addr isNil ifTrue:[
-	aGCOrStream nextPutAll:'[free]'.
+        aGCOrStream nextPutAll:'[free]'.
     ] ifFalse:[
-	size notNil ifTrue:[
-	    aGCOrStream nextPutAll:'[sz:'.
-	    size printOn:aGCOrStream.
-	    aGCOrStream space.
-	] ifFalse:[
-	    aGCOrStream nextPut:$[.
-	].
-	aGCOrStream nextPutAll:'@'.
-	addr printOn:aGCOrStream base:16.
-	aGCOrStream nextPut:$].
+        size notNil ifTrue:[
+            aGCOrStream nextPutAll:'[sz:'.
+            size printOn:aGCOrStream.
+            aGCOrStream space.
+        ] ifFalse:[
+            aGCOrStream nextPut:$[.
+        ].
+        aGCOrStream nextPutAll:'@'.
+        addr printOn:aGCOrStream base:16.
+        aGCOrStream nextPut:$].
     ].
 
     "
-	self new printString
-	(self new:5) displayString
+        self new printString
+        (self new:5) displayString
     "
 
-
-    "Modified: / 24.2.2000 / 19:02:19 / cg"
+    "Modified: / 24-02-2000 / 19:02:19 / cg"
+    "Modified (comment): / 22-02-2017 / 16:54:08 / cg"
 ! !
 
 !ExternalBytes methodsFor:'private-accessing'!