accessing
exportInto: aFolder
	| file |
	file := aFolder / self id, 'ston'.
	^ MarkupFile 
		exportAsFileOn: file 
		containing: (STON toStringPretty: self)