Bug found in Collection>>noneSatisfy:
See comment at end.

Collection>>
noneSatisfy: aBlock
	"Evaluate aBlock with the elements of the receiver.
	If aBlock returns false for all elements return true.
	Otherwise return false"

	self do: [:item | (aBlock value: item) ifTrue: [^ false]].
	^ false  "####### SHOULD BE true #######"

============
- Paul Davidowitz
4pjd at iname.com