--- a/Method.st	Tue May 03 11:13:43 2016 +0200
+++ b/Method.st	Wed May 04 06:50:56 2016 +0200
@@ -3415,12 +3415,12 @@
      with aSelectorSymbol as selector."
 
     (self referencesLiteral:aSelectorSymbol) ifTrue:[
-	"/ cg: was temporarily disabled to speed up some searches.
-	"/ I think, we have to change the caller's to call referencesLiteral: instead,
-	"/ if there is any speed problem there. Not here.
-	"/ ^ true.
-
-	^ self messagesSent includesIdentical:aSelectorSymbol
+        "/ cg: was temporarily disabled to speed up some searches.
+        "/ I think, we have to change the callers to call referencesLiteral: instead,
+        "/ if there is any speed problem there. Not here.
+        "/ ^ true.
+        "/ the self messagesSent does a parse-tree analysis
+        ^ self messagesSent includesIdentical:aSelectorSymbol
     ].
     ^ false
 !