--- a/ImmutableByteArray.st	Wed Aug 19 06:41:26 2015 +0200
+++ b/ImmutableByteArray.st	Fri Aug 21 06:46:46 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2009 by eXept Software AG
 	      All Rights Reserved
@@ -224,6 +226,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
 ! !
 
 !ImmutableByteArray class methodsFor:'documentation'!