accessing
user
	self user ifNotNil: [ ^ self user ].
	^ self userFromId: authorId