--- a/BrowserView.st	Tue Jun 04 23:15:14 1996 +0200
+++ b/BrowserView.st	Tue Jun 04 23:42:34 1996 +0200
@@ -5529,9 +5529,10 @@
      of the argument, aClass and its superclasses.
      Used with fullProtocol browsing."
 
-    |newList|
+    |newList otherSelectors|
 
     newList := Set new.
+    otherSelectors := IdentitySet new.
     self classesInFullProtocolHierarchy:aClass do:[:c |
         |searchCategory|
 
@@ -5545,7 +5546,11 @@
             ].
             c methodArray with:c selectorArray do:[:aMethod :selector |
                 (aMethod category = searchCategory) ifTrue:[
-                    newList add:(aMethod printStringForBrowserWithSelector:selector)
+                    (otherSelectors includes:selector) ifFalse:[
+                        newList add:(aMethod printStringForBrowserWithSelector:selector)
+                    ].
+                ] ifFalse:[
+                    otherSelectors add:selector
                 ]
             ]
         ].
@@ -5553,7 +5558,7 @@
     (newList size == 0) ifTrue:[^ nil].
     ^ newList asOrderedCollection sort
 
-    "Modified: 4.6.1996 / 23:13:32 / cg"
+    "Modified: 4.6.1996 / 23:27:03 / cg"
 !
 
 listOfAllSelectorsInCategory:aCategory ofClass:aClass
@@ -7216,6 +7221,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.149 1996-06-04 21:15:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.150 1996-06-04 21:42:34 cg Exp $'
 ! !
 BrowserView initialize!