--- a/ByteArray.st	Tue Feb 03 14:54:47 2015 +0100
+++ b/ByteArray.st	Tue Feb 03 14:56:02 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 UninterpretedBytes variableByteSubclass:#ByteArray
 	instanceVariableNames:''
 	classVariableNames:''
@@ -163,9 +165,6 @@
 
 
 
-
-
-
 !ByteArray class methodsFor:'queries'!
 
 elementByteSize
@@ -187,8 +186,6 @@
 ! !
 
 
-
-
 !ByteArray methodsFor:'Compatibility-Squeak'!
 
 bitXor:aByteArray
@@ -220,7 +217,6 @@
     ^ self asString
 ! !
 
-
 !ByteArray methodsFor:'accessing'!
 
 basicAt:index
@@ -1176,6 +1172,12 @@
     "
 !
 
+beImmutable
+    "make myself write-protected"
+
+    self changeClassTo:ImmutableByteArray
+!
+
 decodeAsLiteralArray
     "given a literalEncoding in the receiver,
      create & return the corresponding object.
@@ -3102,10 +3104,10 @@
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.222 2014-09-23 20:24:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.223 2015-02-03 13:56:02 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.222 2014-09-23 20:24:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.223 2015-02-03 13:56:02 stefan Exp $'
 ! !