Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-mt.225.mcz

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

Name: ReleaseBuilder-mt.225
Author: mt
Time: 31 December 2021, 12:51:13.044496 pm
UUID: 1c2edec1-adeb-dd47-aa0c-f09861f8e5df
Ancestors: ReleaseBuilder-mt.224

Fixes regression in ReleaseBuilder.

=============== Diff against ReleaseBuilder-mt.224 ===============

Item was changed:
  ----- Method: ReleaseBuilder class>>clearCaches (in category 'scripts') -----
  clearCaches
  	"Clear caches, discard unused references, free space."
  
  	"1) Explicit clean-up of FONT-related stuff."
+ 	Display platformScaleFactor: nil; uiScaleFactor: 1.0.
  	self cleanUpBitstreamVeraSans.
  	StrikeFont initialize.
  
  	"2) FIRST PHASE of explicit clean-up of CODE-related stuff."
  	self discardUserObjects.
  	MCFileBasedRepository flushAllCaches.
  
  	"3) Now clean-up all STATE-related stuff."
  	Preferences chooseInitialSettings.
+ 	Smalltalk cleanUp: true.
- 	Smalltalk cleanUp: true.	
  
  	"4) SECOND PHASE of explicit clean-up of CODE-related stuff. As late as possible to get rid of all references before running this."
  	Smalltalk garbageCollect.
  	Environment allInstancesDo: [:environment | environment purgeUndeclared ].
  	Undeclared removeUnreferencedKeys.
  	
  	!

Item was changed:
  ----- Method: ReleaseBuilder class>>configureDesktop (in category 'scripts') -----
  configureDesktop
  	"Open tools, multimedia content, etc."
  
  	self setDisplayExtent: 1024 @ 768.
  	self setProjectBackground: Color darkGray.
+ 	(UserInterfaceTheme named: 'Squeak') applyScaled.
- 	(UserInterfaceTheme named: 'Squeak') apply.
  	
  	self deleteAllWindows.
  	self deleteAllOtherMorphs.
  
  	"Avoid strange drawing issues."
  	Project current world allMorphsDo: [:m | m removeProperty: #errorOnDraw].
  
  	"Replace docking bar instance in case its code has changed."
  	Project current removeMainDockingBar.
  	TheWorldMainDockingBar updateInstances.!

Item was changed:
  ----- Method: ReleaseBuilder class>>prepareEnvironment (in category 'preparing') -----
  prepareEnvironment
  	"Prepare everything that should be done for a new image build. Clear caches, passwords, etc."
  	
  	| balloon |
  	
  	self
  		clearCaches;
  		configureProjects;
  		configureTools;
  		setPreferences;
  		configureDesktop.
  	
  	balloon := self getBalloonForm. "Get now because later the file might be missing."
  	DeferredTask := [
  		self openWelcomeWorkspacesWith: balloon.
  		PreferenceWizardMorph open].
  	
  	"If you save-and-quit the image after calling #prepareEnvironment, ensure that the next image startup will be fast."
+ 	Project current world doOneCycle.
+ 	Display platformScaleFactor: 1.0.!
- 	Project current world doOneCycle.!