Edgar J. De Cleene uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-edc.48.mcz

==================== Summary ====================

Name: ReleaseBuilder-edc.48
Author: edc
Time: 18 February 2010, 7:55:40.136 am
UUID: 2a249794-2ee7-417a-b9ca-a746f828f54a
Ancestors: ReleaseBuilder-dtl.47

ReleaseBuilderFor3dot11 new createCompressedSources is fixed and make the dir and files 

=============== Diff against ReleaseBuilder-dtl.47 ===============

Item was changed:
  ----- Method: ReleaseBuilderFor3dot11>>createCompressedSources (in category 'sources managment') -----
  createCompressedSources
  " ReleaseBuilderFor3dot11 new createCompressedSources"
  
  ProtoObject allSubclassesWithLevelDo:[:cl :l| | dir | 
  	dir := self createDirIfnotExists:cl category.
  	
  	
  	Cursor write showWhile: [ | zipped nameToUse unzipped buffer |
+ 		nameToUse :=  cl printString , FileDirectory dot, ImageSegment compressedFileExtension. 
- 		nameToUse :=  cl printString .
  		(dir fileExists: nameToUse) ifFalse:[
  			unzipped :=RWBinaryOrTextStream on: ''.
  			unzipped header; timeStamp.
  	 cl  fileOutOn: unzipped moveSource: false toFile: 0.
  	unzipped trailer.
  	
  			unzipped reset.
+ 			zipped := dir newFileNamed: (nameToUse).
- 			zipped := dir newFileNamed: (nameToUse, FileDirectory dot, ImageSegment compressedFileExtension).
  	zipped binary.
  	zipped := GZipWriteStream on: zipped.
  	buffer := ByteArray new: 50000.
  	'Compressing ', nameToUse displayProgressAt: Sensor cursorPoint
  		from: 0 to: unzipped size
  		during:[:bar|
  			[unzipped atEnd] whileFalse:[
  				bar value: unzipped position.
  				zipped nextPutAll: (unzipped nextInto: buffer)].
  			zipped close.
  			unzipped close]]]] startingLevel: 0!