--- a/ImmutableArray.st	Wed Aug 19 06:41:26 2015 +0200
+++ b/ImmutableArray.st	Fri Aug 21 06:46:46 2015 +0200
@@ -201,6 +201,14 @@
 
     self noModificationError.
     ^ super becomeNil
+!
+
+becomeSameAs:anotherObject
+    "trigger an error if I should become something else
+     (this would be an even more tricky manipulation)"
+
+    self noModificationError.
+    ^ super becomeSameAs:anotherObject
 ! !
 
 !ImmutableArray class methodsFor:'documentation'!