--- a/ImmutableByteArray.st	Thu Jul 10 14:24:26 2014 +0200
+++ b/ImmutableByteArray.st	Thu Jul 10 14:24:42 2014 +0200
@@ -142,6 +142,17 @@
     "
 ! !
 
+!ImmutableByteArray methodsFor:'printing & storing'!
+
+displayOn:aGCOrStream
+    (aGCOrStream isStream) ifTrue:[
+        self storeOn:aGCOrStream.
+        aGCOrStream nextPutAll:'"immutable"'.
+        ^ self.
+    ].
+    super displayOn:aGCOrStream.
+! !
+
 !ImmutableByteArray methodsFor:'private'!
 
 species
@@ -198,6 +209,6 @@
 !ImmutableByteArray class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ImmutableByteArray.st,v 1.12 2014-05-06 20:21:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ImmutableByteArray.st,v 1.13 2014-07-10 12:24:42 cg Exp $'
 ! !