Nicolas Cellier uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-nice.91.mcz

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

Name: ReleaseBuilder-nice.91
Author: nice
Time: 21 January 2013, 10:23:10.627 pm
UUID: 932328a8-0695-4f67-a7ae-0d969cb8e2e4
Ancestors: ReleaseBuilder-fbs.90

Reduce level of superstition: 1 garbageCollect is worth 3.
Don't collect garbage before Symbol compactSymbolTable., because this one will invoke garbageCollect by itself.

=============== Diff against ReleaseBuilder-fbs.90 ===============

Item was changed:
  ----- Method: ReleaseBuilder>>finalCleanup (in category 'utilities') -----
  finalCleanup
  	"ReleaseBuilder new finalCleanup"
  
  
  	DataStream initialize.
  	Behavior flushObsoleteSubclasses.
  
  	"The pointer to currentMethod is not realy needed (anybody care to fix this) and often holds on to obsolete bindings"
  	MethodChangeRecord allInstancesDo: [:each | each noteNewMethod: nil].
  
  	self cleanUpEtoys.
  	SmalltalkImage current fixObsoleteReferences.
  
  	Smalltalk flushClassNameCache.
+ 	Symbol compactSymbolTable.!
- 	3 timesRepeat: [
- 		Smalltalk garbageCollect.
- 		Symbol compactSymbolTable.
- 	].
- !

Item was changed:
  ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhaseCleanup (in category 'squeakland') -----
  makeSqueaklandReleasePhaseCleanup
  	"ReleaseBuilder new makeSqueaklandReleasePhaseCleanup"
  
  	Smalltalk at: #Browser ifPresent:[:br| br initialize].
  	ChangeSet 
  		removeChangeSetsNamedSuchThat: [:cs | cs name ~= ChangeSet current name].
  	ChangeSet current clear.
  	ChangeSet current name: 'Unnamed1'.
  	Smalltalk garbageCollect.
  	"Reinitialize DataStream; it may hold on to some zapped entitities"
  	DataStream initialize.
  	"Remove existing player references"
  	References keys do: [:k | References removeKey: k].
  	Smalltalk garbageCollect.
  	ScheduledControllers := nil.
  	Behavior flushObsoleteSubclasses.
  	Smalltalk
  		garbageCollect;
  		garbageCollect.
  	SystemNavigation default obsoleteBehaviors isEmpty 
  		ifFalse: [self error: 'Still have obsolete behaviors'].
  
  	"Reinitialize DataStream; it may hold on to some zapped entitities"
  	DataStream initialize.
  	Smalltalk fixObsoleteReferences.
  	Smalltalk abandonTempNames.
  	Smalltalk zapAllOtherProjects.
  	Smalltalk flushClassNameCache.
+ 	Symbol compactSymbolTable!
- 	3 timesRepeat: 
- 			[Smalltalk garbageCollect.
- 			Symbol compactSymbolTable]!

Item was changed:
  ----- Method: ReleaseBuilderFor3dot10>>makeSqueakRelease (in category 'squeakThreeTen') -----
  makeSqueakRelease
  	| monti |
  		
  	self unloadSome.
  	
  	monti := MCWorkingCopyBrowser new.
  	monti unsortedWorkingCopies
  		do: [:ea | ((PackageOrganizer default packageNames) includes: (ea package name)) ifFalse:[ ea unregister]].
  	monti flushAllCaches.
  	
  	
+ 	Smalltalk garbageCollect.
- 	3
- 		timesRepeat: [Smalltalk garbageCollect].
  	DataStream initialize.
  	Flaps replaceGlobalFlapwithID: 'Tools' translated.
  	Flaps replaceGlobalFlapwithID: 'Widgets' translated.
  	self cleanUpEtoys.
  	SmalltalkImage current fixObsoleteReferences.
  	
  	Smalltalk garbageCollect.
  	ScheduledControllers := nil.
  	Behavior flushObsoleteSubclasses.
+ 	Smalltalk garbageCollect!
- 	3
- 		timesRepeat: [Smalltalk garbageCollect]!

Item was changed:
  ----- Method: ReleaseBuilderFor3dot10>>makeSqueakThreeTenReleasePhaseCleanup (in category 'squeakThreeTen') -----
  makeSqueakThreeTenReleasePhaseCleanup
  	"ReleaseBuilderFor3dot10 new makeSqueakThreeTenReleasePhaseCleanup"
  | newVersion |
  	Smalltalk at: #Browser ifPresent:[:br| br initialize].
  self cleanUnwantedCs.
  	"Remove existing player references"
  	References keys do: [:k | References removeKey: k].
  	Smalltalk garbageCollect.
  	ScheduledControllers := nil.
  	Behavior flushObsoleteSubclasses.
  	SystemNavigation default obsoleteBehaviors isEmpty 
  		ifFalse: [self error: 'Still have obsolete behaviors'].
  
  	"Reinitialize DataStream; it may hold on to some zapped entitities"
  	DataStream initialize.
  	self fixObsoleteReferences.
  	"Smalltalk abandonTempNames."
  	Smalltalk zapAllOtherProjects.
  	Smalltalk flushClassNameCache.
+ 	Symbol compactSymbolTable.
- 	3 timesRepeat: 
- 			[Smalltalk garbageCollect.
- 			Symbol compactSymbolTable].
  "SystemVersion current registerUpdate: 7069." "We only need for when start the release"
  	newVersion := 'Squeak3.10alpha.' , SystemVersion current
  highestUpdate printString. 
  
- 	
  	newVersion := newVersion ,'.'.
  	(SourceFiles at: 2) ifNotNil:
  		[SmalltalkImage current closeSourceFiles; "so copying the
  changes file will always work"
  			 saveChangesInFileNamed: (SmalltalkImage current
  fullNameForChangesNamed: newVersion)].
  	SmalltalkImage current saveImageInFileNamed: (SmalltalkImage current
  fullNameForImageNamed: newVersion)
  		!

Item was changed:
  ----- Method: ReleaseBuilderFor3dot10>>unloadMorphicClasses (in category 'squeakThreeTen') -----
  unloadMorphicClasses
  
  "These classes don't seem to be used, so unload them.  They always can be loaded later."
  
  SystemOrganization classifyAll: #(BorderedStringMorph MouseActionIndicatorMorph CommandTilesMorph
  TestClickExerciser SpectrumAnalyzerMorph FishEyeMorph SoundDemoMorph
  MultiuserTinyPaint KidNavigationMorph CodecDemoMorph BlobMorph
   SoundMorph SubpaneDividerMorph
  RolloverButtonMorph ClipboardMorph VeryPickyMorph
  ClassRepresentativeMorph PhraseWrapperMorph WatchMorph
  UpdatingTextMorph PluggableTabBarMorph PartsWindow HeadingMorph
  ZoomMorph UpdatingStringMorphWithArgument SoundSequencerMorph
  ImageMorphWithSpotlight TinyPaint InfoStringMorph
  UpdatingBooleanStringMorph DrawErrorMorph ViewerRow
  BalloonRectangleMorph  ViewerEntry MidiInputMorph
  CachingMorph MovingEyeMorph MIDIPianoKeyboardMorph
  DoubleClickExample MorphExample RulerMorph LabelStringMorph) under:
  'Morphic-CandidatesForGo'.
  
  (MCPackage named: 'Morphic-CandidatesForGo') unload .
  #(TheWorldMenu FileServices AppRegistry Preferences FileList) do: [:cl|
  (Smalltalk at: cl) removeObsolete].
  self testObsolete do: [:cl|
  Smalltalk removeClassNamed: cl].
+ Smalltalk garbageCollect.!
- 3 timesRepeat: [Smalltalk garbageCollect].!