accessing
messages
	^ messages ifNil: [ messages := OrderedCollection new ]