--- a/ResourceSelectionBrowser.st Wed Mar 11 23:16:09 1998 +0100
+++ b/ResourceSelectionBrowser.st Thu Mar 12 15:01:32 1998 +0100
@@ -523,8 +523,8 @@
resourceSuperclass := aSuperclassOrSymbol isClass ifTrue: [aSuperclassOrSymbol name] ifFalse: [aSuperclassOrSymbol].
resourceClass := aClassOrSymbol isClass
ifTrue: [aClassOrSymbol name]
- ifFalse: [(Smalltalk at: aClassOrSymbol)
- ifTrue: [aClassOrSymbol]
+ ifFalse: [(Smalltalk at: aClassOrSymbol) notNil
+ ifTrue: [aClassOrSymbol]
ifFalse: [nil]].
self valueOfSelector value:(aSelector ? '').