--- a/ResourceSelectionBrowser.st	Wed Apr 08 13:16:21 1998 +0200
+++ b/ResourceSelectionBrowser.st	Thu Apr 09 13:35:35 1998 +0200
@@ -452,7 +452,7 @@
     [
         |clsName|
         resourceTypes isNil ifTrue: [resourceTypes := Method resourceTypes].
-        clsName := ((self listOfClassesView list at: anIndex) upTo: $ ) asSymbol.
+        clsName := ((self listOfClassesView list at: anIndex) printString upTo: $ ) asSymbol.
         self valueOfClassName value: clsName.
         self class lastSelection: clsName.
         self listOfResources contents:
@@ -592,11 +592,13 @@
         ].
         foundClass notNil
         ifTrue:
-        [
-            self listOfClassesView 
-                selectFromListOfNames: (foundClass 
-                    withAllSuperclasses reverse collect: [:cls| cls name asString]);
-                selectedNodeExpand: true
+        [|item|
+            item := self listOfClasses
+                        detectChild:[:child :arg| child contents == arg ]
+                          arguments:(foundClass withAllSuperclasses reverse).
+            item notNil ifTrue:[
+                self selectionOfClass value:item
+            ]
         ].
         self valueOfClassName value: clsPattern
     ].