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

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

Name: System-mt.1170
Author: mt
Time: 15 September 2020, 4:13:03.457876 pm
UUID: 387b054e-21c0-45f7-8270-25bc7bc82049
Ancestors: System-mt.1169

Remove obsolete entries for Startup- and Shutdown-List from the global initialization code. 

I think this is dead code. However, this here gave me a pointer: http://forum.world.st/SmalltalkImage-ShutdownList-oddity-td5121890.html

=============== Diff against System-mt.1169 ===============

Item was changed:
  ----- Method: SmalltalkImage class>>initializeShutDownList (in category 'class initialization') -----
  initializeShutDownList
  	"SmalltalkImage initialize"
  
  	| oldList |
  	oldList := ShutDownList.
  	ShutDownList := OrderedCollection new.
  	"These get processed from the bottom up..."
  	#(
  		Delay
- 		DisplayScreen
  		EventSensor
  		Form
- 		ControlManager
- 		PasteUpMorph
  		StrikeFont
  		Color
  		FileDirectory
  		SoundPlayer
  		HttpUrl
  		Password
  		PWS
  		MailDB
  		ImageSegment
  	) do:[:clsName|
  		Smalltalk at: clsName ifPresent:[:cls| Smalltalk addToShutDownList: cls].
  	].
  
  	oldList ifNotNil: [oldList reverseDo: [:className | Smalltalk at: className
  						ifPresent: [:theClass | Smalltalk addToShutDownList: theClass]]].
  !

Item was changed:
  ----- Method: SmalltalkImage class>>initializeStartUpList (in category 'class initialization') -----
  initializeStartUpList
  	"SmalltalkImage initialize"
  	
  	| oldList |
  	oldList := StartUpList.
  	StartUpList := OrderedCollection new.
  	"These get processed from the top down..."
- 	self flag: #'revisit in Squeak 5.3'.
  	#(
  		SmallInteger
  		Delay
+ 		Time
+ 		DateAndTime
- 		DisplayScreen
  		Cursor
  		EventSensor
+ 		ProcessorScheduler  "Starts low space watcher and background."
- 		ProcessorScheduler  "Starts low space watcher and bkground."
  		FileDirectory  "Enables file stack dump and opens sources."
  		ShortIntegerArray
  		ShortRunArray
- 		CrLfFileStream "Remove this in Squeak 5.3"
  	) do:[:clsName|
  		Smalltalk at: clsName ifPresent:[:cls| Smalltalk addToStartUpList: cls].
  	].
  	oldList ifNotNil: [oldList do: [:className | Smalltalk at: className
  						ifPresent: [:theClass | Smalltalk addToStartUpList: theClass]]].
  	#(
  		ImageSegment
+ 		Project
+ 		AutoStart
+ 		ReleaseBuilder
- 		PasteUpMorph
- 		ControlManager
  	) do:[:clsName|
  		Smalltalk at: clsName ifPresent:[:cls| Smalltalk addToStartUpList: cls].
  	].
  !