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