--- a/Method.st	Wed Dec 03 10:50:41 2014 +0100
+++ b/Method.st	Wed Dec 03 15:31:56 2014 +0100
@@ -399,6 +399,13 @@
     ^ self mclass isMeta
 !
 
+sendsAnySelector:aCollectionOfSymbols
+    "return true, if this method contains a message-send
+     with any from aCollectionOfSymbols as selector."
+
+    ^ self sendsAny:aCollectionOfSymbols
+!
+
 sendsSelector:aSelectorSymbol
     "return true, if this method contains a message-send
      with aSelectorSymbol as selector."
@@ -3863,11 +3870,11 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.443 2014-12-02 16:29:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.444 2014-12-03 14:31:56 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.443 2014-12-02 16:29:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.444 2014-12-03 14:31:56 cg Exp $'
 !
 
 version_SVN