accessing
store
	ReStore isConnected ifFalse: [ self class storeDB ]. "Starting  the ReStore singleton."
	self messages do: [ :each | ReStore evaluateAsTransaction: [  
			each isInDB ifFalse: [ each store ].
			each user isInDB ifFalse: [ each user store ]
		] 
	].