--- a/Tools__SearchDialog.st	Fri Nov 18 01:46:17 2016 +0100
+++ b/Tools__SearchDialog.st	Fri Nov 18 01:47:02 2016 +0100
@@ -1537,10 +1537,17 @@
         methods := nil.
         ^ self.
     ].
-    (where == #classes or:[ where == #classesWithPrivateClasses. ]) ifTrue:[ 
-        classes := selectedClasses collect:[ :each | each theNonMetaclass. ].
-        methods := nil.
-        ^ self.
+    (where == #classes or:[ where == #classesWithPrivateClasses. ]) ifTrue:[
+        selectedClasses notNil ifTrue:[
+            classes := selectedClasses collect:[ :each | each theNonMetaclass. ].
+            methods := nil.
+        ] ifFalse:[
+            browser selectedMethods value notEmptyOrNil ifTrue:[
+                classes := ((browser selectedMethods value ? #()) collect:[:m | m mclass theNonMetaclass] as:Set) asOrderedCollection.
+                methods := nil.
+            ].
+            ^ self.
+        ].
     ].
     (where == #classHierarchies or:[ where == #classHierarchiesWithPrivateClasses. ]) 
     ifTrue:[ 
@@ -1629,7 +1636,7 @@
     self todo:'unimplemented search'.
 
     "Modified: / 05-10-2011 / 15:48:20 / az"
-    "Modified: / 29-02-2012 / 19:47:42 / cg"
+    "Modified: / 18-11-2016 / 00:22:55 / cg"
 !
 
 helpTextForMetaPatterns