'From Squeak3.9 of 7 November 2006 [latest update: #7067] on 8 January 2007 at 9:18:07 pm'!

!SARDumper methodsFor: 'fileOut' stamp: 'e-itoh 1/8/2007 21:18'!
fileOutAdditionalFile: filename 
	| storedFilename |
	storedFilename := filename copyReplaceAll: FileDirectory pathNameDelimiter asString with: $/ asString.
	zip addMember: ((ZipArchiveMember newFromFile: filename) fileName: storedFilename;
			 desiredCompressionMethod: ZipArchive compressionDeflated;
			 yourself).
	preamble nextPutAll: 'self extractMember: ''';
		 nextPutAll: storedFilename;
		 nextPutAll: '''.';
		 cr! !