Далі йде код в базовому класі Collection який виконує роботу: | newCollection | newCollection := self species new. self do: [:each | (aBlock value: each) ifTrue: [newCollection add: each]]. ^newCollection