--- a/Collection.st	Thu Feb 23 12:50:27 2012 +0100
+++ b/Collection.st	Mon Feb 27 20:44:04 2012 +0100
@@ -2945,6 +2945,32 @@
     "Modified: / 30.10.1997 / 15:52:18 / cg"
 !
 
+noModificationError
+    "a store is attempted into an immutable collection (typically: a literal).
+     For our convenience, find the method that contains me, for a nicer error message"
+
+    |creator msg context|
+
+    creator := Method allSubInstances detect:[:aMethod | (aMethod referencesGlobal:self)] ifNone:nil.
+    creator notNil ifTrue:[
+        msg := ' (' , creator whoString , ')'
+    ].
+    context := thisContext sender.
+     "
+     this error is reported on an attempt to store into an immutable collection (typically: a literal). 
+     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: / 03-08-1998 / 14:47:45 / cg"
+!
+
 notEnoughElementsError
     "report an error that the operation is not allowed,  
      since not enough elements are in the collection"
@@ -4182,11 +4208,11 @@
 !Collection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.270 2011-12-21 14:59:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.271 2012-02-27 19:44:04 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.270 2011-12-21 14:59:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.271 2012-02-27 19:44:04 cg Exp $'
 ! !
 
 Collection initialize!