--- a/ImmutableByteArray.st	Tue May 06 22:21:01 2014 +0200
+++ b/ImmutableByteArray.st	Tue May 06 22:21:12 2014 +0200
@@ -135,8 +135,7 @@
     |sz|
 
     sz := self size.
-    ^ (ByteArray new:sz)
-        replaceBytesFrom:1 to:sz with:self startingAt:1
+    ^ (ByteArray new:sz) replaceBytesFrom:1 to:sz with:self startingAt:1
 
     "
      #[1 2 3 4] asImmutableByteArray shallowCopy
@@ -149,6 +148,12 @@
     "Copies should be mutable"
 
     ^ ByteArray
+!
+
+speciesForCopy
+    "Copies should be mutable"
+
+    ^ ByteArray
 ! !
 
 !ImmutableByteArray methodsFor:'queries'!
@@ -193,5 +198,6 @@
 !ImmutableByteArray class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ImmutableByteArray.st,v 1.11 2012-10-16 15:11:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ImmutableByteArray.st,v 1.12 2014-05-06 20:21:12 cg Exp $'
 ! !
+