--- a/ImmutableByteArray.st	Mon Feb 27 20:44:21 2012 +0100
+++ b/ImmutableByteArray.st	Mon Feb 27 20:44:26 2012 +0100
@@ -151,46 +151,6 @@
 	replaceFrom:1 to:sz with:self startingAt:1
 ! !
 
-!ImmutableByteArray methodsFor:'error handling'!
-
-creator
-    "find the method that contains me"
-
-    ^ Method allSubInstances detect:[:aMethod | (aMethod referencesGlobal:self)] ifNone:nil.
-
-    "
-      #(1 2 3) creator
-    "
-
-    "Modified: 24.6.1996 / 15:36:28 / stefan"
-!
-
-noModificationError
-    "a store is attempted - for our convenience, find the method that
-     contains me, for a nicer error message"
-
-    |creator msg context|
-
-    creator := self creator.
-    creator notNil ifTrue:[
-	msg := ' (' , creator whoString , ')'
-    ].
-    context := thisContext sender.
-     "
-     this error is reported on an attempt to store into a literal
-     byte array. The literal was created in creator.
-     If you press continue in the debugger, the store will be performed.
-     If you don't want this, press abort and check your code.
-     Storing into literals is VERY VERY bad coding style.
-    "
-    NoModificationError
-	raiseRequestWith:self
-	errorString:msg
-	in:context.
-
-    "Created: / 3.8.1998 / 14:47:45 / cg"
-! !
-
 !ImmutableByteArray methodsFor:'private'!
 
 species
@@ -237,5 +197,5 @@
 !ImmutableByteArray class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ImmutableByteArray.st,v 1.7 2009-11-16 08:59:40 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ImmutableByteArray.st,v 1.8 2012-02-27 19:44:26 cg Exp $'
 ! !