--- a/ImmutableArray.st	Tue May 06 16:45:50 2014 +0200
+++ b/ImmutableArray.st	Tue May 06 22:21:01 2014 +0200
@@ -123,8 +123,7 @@
     |sz|
 
     sz := self size.
-    ^ (Array new:sz)
-        replaceFrom:1 to:sz with:self startingAt:1
+    ^ (Array new:sz) replaceFrom:1 to:sz with:self startingAt:1
 
     "
      #(1 2 3 4) asImmutableArray shallowCopy
@@ -137,6 +136,12 @@
     "Copies should be mutable"
 
     ^ Array
+!
+
+speciesForCopy
+    "Copies should be mutable"
+
+    ^ Array
 ! !
 
 !ImmutableArray methodsFor:'queries'!
@@ -175,9 +180,10 @@
 !ImmutableArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ImmutableArray.st,v 1.31 2012-10-16 15:11:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ImmutableArray.st,v 1.32 2014-05-06 20:21:01 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ImmutableArray.st,v 1.31 2012-10-16 15:11:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ImmutableArray.st,v 1.32 2014-05-06 20:21:01 cg Exp $'
 ! !
+