--- a/Tools__MethodRewriter.st	Tue Feb 24 16:45:55 2015 +0100
+++ b/Tools__MethodRewriter.st	Tue Feb 24 19:13:14 2015 +0100
@@ -1412,7 +1412,13 @@
 
     searcher := ParseTreeSearcher new.
     rule rewriteRule searches do:[:eachSearch |
-        searcher matchesTree:eachSearch searchTree do:[:aNode :answer | matchingMethods add:currentMethod ] 
+        searcher 
+            matchesTree:eachSearch searchTree 
+            do:[:aNode :answer | 
+                (eachSearch canMatch: aNode) ifTrue:[
+                    matchingMethods add:currentMethod 
+                ] 
+            ] 
     ].
 
     matchingMethods := Set new.
@@ -1575,10 +1581,10 @@
 !MethodRewriter class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodRewriter.st,v 1.22 2015-02-05 14:32:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodRewriter.st,v 1.23 2015-02-24 18:13:14 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__MethodRewriter.st,v 1.22 2015-02-05 14:32:40 cg Exp $'
+    ^ '$Id: Tools__MethodRewriter.st,v 1.23 2015-02-24 18:13:14 cg Exp $'
 ! !