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