--- a/ResourceSelectionBrowser.st	Sun Feb 15 21:00:42 1998 +0100
+++ b/ResourceSelectionBrowser.st	Sun Feb 15 21:12:37 1998 +0100
@@ -404,11 +404,10 @@
 
     (self selectionOfClass value notNil and:
     [(cls := Smalltalk at: self selectionOfClass value name) isClass and:
-    [(cls class implements: (sel := self valueOfSelector value) asSymbol) and:
-    [accept value]]]) 
+    [accept value]]) 
     ifTrue:
     [
-        ^cls name, ' ', sel 
+        ^cls name, ' ', self valueOfSelector value
     ].
     ^nil
 ! !