Protocol shows invalid method counts when switching to Show Inherited Methods Except Object's

[Jan Vrany]

Steps to reproduce:

1) Open browser
2) Select class LinkedList
3) Select protocol accessing
4) Select menu View → Selector → Show Inherited Method's exept Object's

The protocol accessing shows invalid method count, check if the number shown is the same as

| cls count |

cls := LinkedList.
count := 0.
[ cls ~~ Object ] whileTrue:[
    cls methodDictionary keysAndValuesDo:[:sel :m|
        m category = 'accessing' ifTrue:[
            count := count + 1.
        ]
    ].
    cls := cls superclass
].
count