accessing
oldest
	self messages ifNil: [ ^ nil ].
	self messages ifEmpty: [ ^ nil ].
	^ (self select:[ :tweet | tweet created = ((self collect: [ :each | each created ]) asSortedCollection first)]) first