--- a/SystemBrowser.st	Wed May 29 17:37:32 1996 +0200
+++ b/SystemBrowser.st	Wed May 29 17:39:31 1996 +0200
@@ -402,11 +402,11 @@
                                                     in:class 
                                                     ignoreErrors:true 
                                                     ignoreWarnings:true.
-                                    rsrc := parser primitiveResource.
-                                    rsrc == aResourceSymbol ifTrue:[
-                                        true
+                                    rsrc := parser primitiveResources.
+                                    rsrc notNil ifTrue:[
+                                        rsrc includesKey:aResourceSymbol
                                     ] ifFalse:[
-                                        rsrc first == aResourceSymbol
+                                        false
                                     ]
                                 ]
                             ]
@@ -436,7 +436,7 @@
         title:'methods with a resource'
     "
 
-    "Modified: 28.5.1996 / 13:04:13 / cg"
+    "Modified: 29.5.1996 / 17:28:53 / cg"
 !
 
 browseForString:aString
@@ -1359,6 +1359,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.60 1996-05-28 12:19:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.61 1996-05-29 15:39:31 cg Exp $'
 ! !
 SystemBrowser initialize!