--- a/ResourceSelectionBrowser.st	Tue Jan 27 10:15:31 1998 +0100
+++ b/ResourceSelectionBrowser.st	Tue Jan 27 10:20:25 1998 +0100
@@ -352,18 +352,19 @@
     resourceTypes := aResourceTypes.
     resourceSuperclass := aSuperclassOrSymbol isClass ifTrue: [aSuperclassOrSymbol name] ifFalse: [aSuperclassOrSymbol].
     resourceClass := aClassOrSymbol isClass ifTrue: [aClassOrSymbol name] ifFalse: [aClassOrSymbol].
-    self valueOfSelector value: aSelector.
+    self valueOfSelector value:(aSelector ? '').
 
     self open.
 
-    (self selectionOfClass value notNil and: 
-    [(cls := Smalltalk at: self selectionOfClass value name) isClass and:
-    [accept value]])
-    ifTrue:
-    [
+    (self selectionOfClass value notNil 
+     and:[(cls := Smalltalk at: self selectionOfClass value name) isClass 
+          and:[accept value]]
+    ) ifTrue:[
         ^cls name, ' ', self valueOfSelector value
     ].
     ^nil
+
+    "Modified: / 26.1.1998 / 22:26:50 / stefan"
 ! !
 
 !ResourceSelectionBrowser methodsFor:'startup / release'!