--- a/ResourceSelectionBrowser.st	Sun Apr 19 18:45:16 1998 +0200
+++ b/ResourceSelectionBrowser.st	Sun Apr 19 18:46:41 1998 +0200
@@ -445,7 +445,7 @@
 
     |holder|
     (holder := builder bindingAt:#rootOfClasses) isNil ifTrue:[
-	builder aspectAt:#rootOfClasses put: (holder := SelectionInTree new root: TreeItem new)
+        builder aspectAt:#rootOfClasses put: (holder := TreeItem new)
     ].
     ^ holder
 
@@ -680,7 +680,7 @@
             superClasses := foundClass withAllSuperclasses reverse.
             (nonSuperclasses := self treeViewContents allSuperclasses) notNil 
                 ifTrue: [superClasses := superClasses reject: [:cls| nonSuperclasses includes: cls]].
-            item := self rootOfClasses detectItem:[:child :arg| child contents == arg] arguments:superClasses.
+            item := self rootOfClasses detectChild:[:child :arg| child contents == arg] arguments:superClasses.
             item notNil ifTrue:[self selectionOfClass value:item]
         ].
         self valueOfClassName value: clsPattern