accessing
quotes

	self messages ifEmpty: [ self getMessages ].
	^ TweetsCollection new
		messages: (self messages 
					select: [ :each | 
						(each metadata at: 'quote') isNotEmpty and: [ each user userName = self userName] ]);
		yourself