--- a/Tools_SearchDialog.st	Fri Mar 06 22:09:25 2009 +0100
+++ b/Tools_SearchDialog.st	Sat Mar 07 01:04:11 2009 +0100
@@ -707,7 +707,7 @@
 addCheckBoxForSelectedMethodClasses
     |b classes|
 
-    classes := (browser selectedMethods value collect:[:m | m mclass theNonMetaclass]) asSet.
+    classes := ((browser selectedMethods value ? #()) collect:[:m | m mclass theNonMetaclass]) asSet.
     classes size == 1 ifTrue:[
         b := CheckBox label:(resources string:'Selected method class (%1)'
                             with:classes first name).
@@ -1121,5 +1121,5 @@
 !SearchDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.32 2009-03-06 15:01:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.33 2009-03-07 00:04:11 cg Exp $'
 ! !