accessing
storeContents

	| objectString |
	objectString := STON toStringPretty: self.
	^ MarkupFile exportAsFileOn: self folder/ self userName, 'ston' containing: objectString.