--- a/SystemBrowser.st	Sat Jul 13 14:00:30 2019 +0200
+++ b/SystemBrowser.st	Sat Jul 13 14:11:20 2019 +0200
@@ -5301,6 +5301,18 @@
     ^ aCollectionOfMethods select:[:m | searchBlock value:m mclass value:m value:m selector].
 !
 
+findString:aString inMethods:aCollectionOfMethods ignoreCase:ignoreCase match:doMatch resourceMethodsOnly:resourceMethodsOnly
+    "return a collection of all methods in aCollectionOfClasses  
+     containing a string in their source.
+     This may be slow, since source-code has to be scanned."
+
+    ^ self
+        findString:aString 
+        inMethods:aCollectionOfMethods 
+        ignoreCase:ignoreCase match:doMatch fullWordsOnly:false 
+        resourceMethodsOnly:resourceMethodsOnly
+!
+
 findStringLiteral:aString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
     "return a collection of all methods in aCollectionOfClasses  
      containing a string in any of their string-literals."