Hi guys Is it a know bug? | selector superClasses | selector := aMethodDefinition selector. superClasses := aMethodDefinition realClass allSuperclasses. result := OrderedCollection new. (superClasses select: [ :eachClass | eachClass hasProtocolFor: selector]) do: [ :eachClass | (eachClass includesSelector: selector) ifTrue: [ result add: (self whichCategoryIncludesSelector: selector)]]. ^ result asBag adds result result | selector superClasses | selector := aMethodDefinition selector. superClasses := aMethodDefinition realClass allSuperclasses. result := OrderedCollection new. (superClasses select: [ :eachClass | eachClass hasProtocolFor: selector]) do: [ :eachClass | (eachClass includesSelector: selector) ifTrue: [ result add: (self whichCategoryIncludesSelector: selector)]]. ^ result asBag stef