Forgot to include how to read those export segments back in, this is a
class side method on my "Account" class, obvious code right? ;-)

loadFrom: aDirectory
	"Load the account from given directory."

	| stream account |
	stream _ aDirectory oldFileNamed: (aDirectory lastNameFor: self
fileName extension: self fileNameExtension).
	account _ (stream fileInObjectAndCode) install arrayOfRoots first.
	stream close.
	^account


regards, Göran

PS. <CSOTD>"See above, gotta get home for dinner. But tomorrow I will
post something coooool. Promise. I didn't have time to finish it
today."</CSOTD>