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