--- a/ResourceSelectionBrowser.st	Fri Jan 23 18:11:45 1998 +0100
+++ b/ResourceSelectionBrowser.st	Fri Jan 23 18:31:57 1998 +0100
@@ -213,9 +213,9 @@
     (holder := builder bindingAt:#listOfClasses) isNil ifTrue:[
         builder aspectAt:#listOfClasses put:
             (holder := 
-                (TreeItem name: resourceSuperclass)
+                (TreeItem name: (resourceSuperclass ? #Object))
                     children: (OrderedCollection with:
-                        (TreeItem newAsTreeFromSmalltalkClass: (Smalltalk at:resourceSuperclass))))
+                        (TreeItem newAsTreeFromSmalltalkClass: (Smalltalk at:(resourceSuperclass ? #Object)))))
     ].
     ^ holder
 
@@ -304,7 +304,8 @@
 postBuildWith:aBuilder
 
     |classSelection classSelectionBlock|
-    classSelection := self class lastSelection ? resourceClass ? ''.
+
+    classSelection := self class lastSelection ? resourceClass ? #Object.
     classSelectionBlock := [:cls|
     self listOfClassesView selectFromListOfNames: 
             (((Smalltalk at: cls asSymbol ifAbsent: [Object]))