# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1406646916 -7200
# Node ID b7e023342d4f9807cab19cdf1a97a115ca5a25f5
# Parent  45ef192ee95faac49ffad46bee74a5bea4b68fa1
class: Collection
changed: #noModificationError

diff -r 45ef192ee95f -r b7e023342d4f Collection.st
--- a/Collection.st	Sun Jul 27 22:30:39 2014 +0200
+++ b/Collection.st	Tue Jul 29 17:15:16 2014 +0200
@@ -3847,6 +3847,11 @@
     creator := Method allSubInstances 
                 detect:[:aMethod | (aMethod referencesGlobal:self)] 
                 ifNone:nil.
+    creator isNil ifTrue:[        
+        creator := Method allSubInstances 
+                detect:[:aMethod | (aMethod literalsDetect:[:l | l == self] ifNone:nil) notNil] 
+                ifNone:nil.   
+    ].
     creator notNil ifTrue:[
         msg := ' (' , creator whoString , ')'
     ].
@@ -5612,11 +5617,11 @@
 !Collection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.347 2014-07-23 12:29:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.348 2014-07-29 15:15:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.347 2014-07-23 12:29:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.348 2014-07-29 15:15:16 cg Exp $'
 ! !