--- a/ResourceSelectionBrowser.st	Sat Feb 14 22:25:35 1998 +0100
+++ b/ResourceSelectionBrowser.st	Sat Feb 14 22:42:27 1998 +0100
@@ -393,7 +393,7 @@
 
 openOnSuperclass: aSuperclassOrSymbol andClass: aClassOrSymbol andSelector: aSelector withResourceTypes: aResourceTypes
 
-    |cls|
+    |cls sel|
     resourceMethod := aSelector.
     resourceTypes := aResourceTypes.
     resourceSuperclass := aSuperclassOrSymbol isClass ifTrue: [aSuperclassOrSymbol name] ifFalse: [aSuperclassOrSymbol].
@@ -404,10 +404,11 @@
 
     (self selectionOfClass value notNil and:
     [(cls := Smalltalk at: self selectionOfClass value name) isClass and:
-    [accept value]]) 
+    [(cls class implements: (sel := self valueOfSelector value) asSymbol) and:
+    [accept value]]]) 
     ifTrue:
     [
-        ^cls name, ' ', self valueOfSelector value
+        ^cls name, ' ', sel 
     ].
     ^nil
 ! !