private
tweetsFromImage
"Used for testing external classes, disposable"
	^ self messages select: [ :tweet | tweet authorId = self id ]