--- a/ResourceSelectionBrowser.st	Fri Jan 23 14:37:27 1998 +0100
+++ b/ResourceSelectionBrowser.st	Fri Jan 23 14:59:24 1998 +0100
@@ -302,14 +302,14 @@
     resourceClass := aClassOrSymbol isClass ifTrue: [aClassOrSymbol name] ifFalse: [aClassOrSymbol].
     self valueOfSelector value: aSelector.
 
-    self open. 
-    (self selectionOfClass value notNil and: [
-    (cls := Smalltalk at: self selectionOfClass value name) isClass &
-    (cls class implements: (sel := self valueOfSelector value)) &
-    accept value])
+    self open.
+
+    (self selectionOfClass value notNil and: 
+    [(cls := Smalltalk at: self selectionOfClass value name) isClass and:
+    [accept value]])
     ifTrue:
     [
-        ^cls name, ' ', sel
+        ^cls name, ' ', self valueOfSelector value
     ].
     ^nil
 ! !