--- a/DoWhatIMeanSupport.st	Fri Sep 15 11:22:21 2017 +0200
+++ b/DoWhatIMeanSupport.st	Fri Sep 15 11:24:48 2017 +0200
@@ -6190,16 +6190,10 @@
                         allImplementors := Smalltalk allImplementorsOf:condition selector.
                         classesReturningTrue := 
                             allImplementors select:[:cls | 
-                                                |mthd tree searcher|
+                                                |mthd|
                                                 
                                                 mthd := cls compiledMethodAt:condition selector.
-                                                searcher := ParseTreeSearcher isJustReturningTrue.
-                                                tree := RBParser
-                                                            parseSearchMethod:(mthd source)
-                                                            onError: [:str :pos | nil].
-
-                                                tree notNil 
-                                                and:[ searcher executeTree:tree initialAnswer:false ].
+                                                ParseTreeSearcher methodIsJustReturningTrue:mthd.
                                             ].
 
                         classesReturningTrue do:[:eachClass |
@@ -6217,6 +6211,7 @@
     ^ possibleClasses
 
     "Created: / 15-09-2017 / 10:16:20 / cg"
+    "Modified: / 15-09-2017 / 11:24:01 / cg"
 !
 
 isNonDestructive:aMessageNode whenSentTo:receiverValue