--- 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 $'
 ! !