--- a/ImmutableByteArray.st	Sat Apr 21 18:00:59 2012 +0200
+++ b/ImmutableByteArray.st	Sat Apr 21 18:01:08 2012 +0200
@@ -111,18 +111,6 @@
 
 !ImmutableByteArray methodsFor:'copying'!
 
-copyEmpty
-    "when copying, return a real (mutable) ByteArray"
-
-    ^ ByteArray new:self size
-!
-
-copyEmptyAndGrow:size
-    "when copying, return a real (mutable) ByteArray"
-
-    ^ ByteArray new:size
-!
-
 postCopy
     "when copied, make me a real (mutable) ByteArray"
 
@@ -148,7 +136,11 @@
 
     sz := self size.
     ^ (ByteArray new:sz)
-	replaceFrom:1 to:sz with:self startingAt:1
+        replaceBytesFrom:1 to:sz with:self startingAt:1
+
+    "
+     #[1 2 3 4] asImmutableByteArray shallowCopy
+    "
 ! !
 
 !ImmutableByteArray methodsFor:'private'!
@@ -197,5 +189,5 @@
 !ImmutableByteArray class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ImmutableByteArray.st,v 1.8 2012-02-27 19:44:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ImmutableByteArray.st,v 1.9 2012-04-21 16:01:08 stefan Exp $'
 ! !