--- a/ByteArray.st	Fri Feb 20 23:50:14 2015 +0100
+++ b/ByteArray.st	Sat Feb 21 00:55:55 2015 +0100
@@ -184,6 +184,7 @@
     "Modified: 23.4.1996 / 15:56:25 / cg"
 ! !
 
+
 !ByteArray methodsFor:'Compatibility-Squeak'!
 
 bitXor:aByteArray
@@ -2604,6 +2605,8 @@
 displayOn:aGCOrStream
     "return a printed representation of the receiver for displaying"
 
+    "/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
+    "/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
     (self class == ByteArray and:[aGCOrStream isStream]) ifTrue:[
         self storeOn:aGCOrStream.
         ^ self
@@ -3072,6 +3075,7 @@
     "
 ! !
 
+
 !ByteArray methodsFor:'testing'!
 
 isByteArray
@@ -3099,10 +3103,10 @@
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.224 2015-02-07 13:49:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.225 2015-02-20 23:55:55 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.224 2015-02-07 13:49:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.225 2015-02-20 23:55:55 cg Exp $'
 ! !