--- a/ExternalBytes.st	Thu Jul 10 14:23:18 2014 +0200
+++ b/ExternalBytes.st	Thu Jul 10 14:23:19 2014 +0200
@@ -1086,25 +1086,25 @@
 
     "/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
     "/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
-    (aGCOrStream isStream and:[aGCOrStream ~~ Transcript]) ifFalse:[
-	^ super displayOn:aGCOrStream
+    (aGCOrStream isStream) ifFalse:[
+        ^ 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:'at:'.
-	addr printOn:aGCOrStream base:16.
-	aGCOrStream nextPut:$].
+        size notNil ifTrue:[
+            aGCOrStream nextPutAll:'[sz:'.
+            size printOn:aGCOrStream.
+            aGCOrStream space.
+        ] ifFalse:[
+            aGCOrStream nextPut:$[.
+        ].
+        aGCOrStream nextPutAll:'at:'.
+        addr printOn:aGCOrStream base:16.
+        aGCOrStream nextPut:$].
     ].
 
     "Modified: / 24.2.2000 / 19:02:19 / cg"
@@ -1320,11 +1320,11 @@
 !ExternalBytes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalBytes.st,v 1.91 2014-07-09 14:59:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalBytes.st,v 1.92 2014-07-10 12:23:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalBytes.st,v 1.91 2014-07-09 14:59:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalBytes.st,v 1.92 2014-07-10 12:23:19 cg Exp $'
 ! !