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