--- a/ImmArray.st	Tue Jun 27 04:17:58 1995 +0200
+++ b/ImmArray.st	Mon Jul 03 04:38:59 1995 +0200
@@ -37,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Attic/ImmArray.st,v 1.4 1995-05-01 23:03:57 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/ImmArray.st,v 1.5 1995-07-03 02:38:27 claus Exp $
 "
 !
 
@@ -87,7 +87,7 @@
     |creator msg|
 
     creator := self creator.
-    msg := 'store into literal'.
+    msg := 'store into/change of literal'.
     creator notNil ifTrue:[
 	msg := msg , ' (' , creator whoString , ')'
     ].
@@ -121,6 +121,18 @@
     ^ super basicAt: index put: value
 ! !
 
+!ImmutableArray methodsFor:'specials'!
+
+become:anotherObject
+    self notifyStoreError.
+    ^ super become:anotherObject
+!
+
+becomeNil
+    self notifyStoreError.
+    ^ super becomeNil
+! !
+
 !ImmutableArray methodsFor:'private'!
 
 species
@@ -150,7 +162,10 @@
     ^ Array new:self size
 !
 
+shallowCopy
+    ^ Array new:self size withAll:self
+!
+
 postCopy
     self changeClassTo:Array.
 ! !
-