--- a/ResourceSelectionBrowser.st	Wed Apr 07 21:41:52 2004 +0200
+++ b/ResourceSelectionBrowser.st	Thu Apr 15 10:39:51 2004 +0200
@@ -752,14 +752,11 @@
         1 to: clsPattern size do: [:i|    
              classes := classes select: [:cls| (cls name at: i) == (clsPattern at: i)].
         ].    
-        foundClass := classes at: 1 ifAbsent: [nil] 
+        foundClass := classes at: 1 ifAbsent:[]. 
     ].          
 
     foundClass notNil ifTrue: [           
-        foundClass isLoaded ifFalse:[
-            foundClass autoload.
-            foundClass := Smalltalk at:foundClass name.
-        ].
+        foundClass := foundClass autoload.
 
         ClassPresentation = #'Class Hierarchy' ifTrue: [
             |searchArgs nonSuperclasses hierItem|
@@ -775,8 +772,7 @@
             hierItem notNil ifTrue:[
                 self selectionOfClassHierarchy value:hierItem.
             ].
-        ]
-        ifFalse: [
+        ] ifFalse: [
             |searchArgs hierItem|
 
             false "foundClass isPrivate"