'From Squeak3.4 of 1 March 2003 [latest update: #5170] on 6 May 2003 at 5:02:27 pm'! "Change Set: KCP-0061-fixAllClassesImplementing Date: 6 May 2003 Author: noury bouraqadi fix allClassesImplementing that was using self systemNavigation but should not!!"! !SystemNavigation methodsFor: 'query' stamp: 'nb 5/6/2003 16:57'! allClassesImplementing: aSelector "Answer an Array of all classes that implement the message aSelector." | aCollection | aCollection _ ReadWriteStream on: Array new. self allBehaviorsDo: [:class | (class includesSelector: aSelector) ifTrue: [aCollection nextPut: class]]. ^ aCollection contents! !