--- a/Tools_SearchDialog.st	Mon Jan 11 17:33:33 2010 +0100
+++ b/Tools_SearchDialog.st	Tue Jan 12 10:51:42 2010 +0100
@@ -214,8 +214,8 @@
         browser warn:'No class(es) for search'.
         ^ self.
     ].
+    self getClassesAndMethodsFor:where.
 
-    self getClassesAndMethodsFor:where.
     (#(#classesWithPrivateClasses #classHierarchiesWithPrivateClasses #ownersWithPrivateClasses #ownersHierarchiesWithPrivateClasses) 
         includes:where) 
             ifTrue:[ 
@@ -223,7 +223,7 @@
 
                 toSearch := IdentitySet withAll:classes.
                 classes := IdentitySet withAll:toSearch.
-                [ toSearch notEmpty. ] whileTrue:[
+                [ toSearch notEmpty ] whileTrue:[
                     |cls|
 
                     cls := toSearch removeFirst.
@@ -1200,9 +1200,9 @@
 !SearchDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.46 2009-12-22 11:06:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.47 2010-01-12 09:51:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.46 2009-12-22 11:06:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.47 2010-01-12 09:51:42 cg Exp $'
 ! !