utilities
words
	| rawWords |
	rawWords := self textPreview  splitOn: Character space.
	^ rawWords := rawWords collect: [ :word | word trimmed copyWithoutAll: #($. $, $" $“ $”) ]