This one is faster though (it uses the fact that the elements are 
already ordered):

	| nc |
	nc := self species new: self size.
	self ifEmpty: [^ nc].
	nc add: self first.
	self do: [:ea | nc last = ea ifFalse: [nc add: ea]].
	^ nc

Stef