[Seaside] Conrad issue

[stephan at stack.nl]

CRConference has

snapshot
	| stream |
	stream := ReferenceStream fileNamed: (String streamContents: [ :filename |
		Date current
			printOn: filename
			format: #( 3 2 1 $- 1 1 2).
		filename space; nextPutAll: (Time current print24
			collect: [ :char | char = $: ifTrue: [ $- ] ifFalse: [ char ] ]).
		filename nextPutAll: '.obj' ]).
	[ stream nextPut: self ] ensure: [ stream close ]

startUp
	| files |
	self reset.
	files := FileDirectory default fileNamesMatching: '*.obj'.
	files isEmpty ifFalse: [ self load: files asSortedCollection last ]

The matching in startUp creates interesting issues when having other .obj
files around. I would suggest prefixing the filename with 'esug' and  
changing the match to 'esug*.obj'.

Stephan Eggermont