I have a question: why allProtocols returns an array and protocols a set? allProtocols ^ { allProtocol }, protocols asArray protocols ^ protocols protocolsNames ^ protocols collect: #name as: Array initialize super initialize. protocols := IdentitySet new. allProtocol := AllProtocol protocolOrganizer: self. to me it looks suspicious and it will be a source of bugs. Stef