I forgot this part of my implementation:

Symbol>>orMoreDo: aBlock
	^ aBlock value: self

(else a Symbol is considered as a collection of characters...)

Stef