Yes:

sar := ZipArchive new.
preamble := WriteStream on: String new.
fileDir := FileDirectory default directoryNamed: 'package-cache'.

{ 'Package1'. 'Package2' } do: [ :packName |
 fileName := fileDir lastNameFor: packName extension: 'mcz'.
 sar
  addFile: (fileDir fullNameFor: fileName)
  as: fileName.
 preamble nextPutAll: 'self fileInMonticelloZipVersionNamed: ''';
   nextPutAll: fileName;
   nextPutAll: '''.';
   cr ].

zip addMember: (ZipArchiveMember newFromString: preamble contents named: 
'install/preamble').

"then write it"
zip writeTo: (FileDirectory default newFileNamed: 'test.sar').

-- 
Ned Konz
http://bike-nomad.com/squeak/