Christoph Thiede uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ct.1297.mcz

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

Name: System-ct.1297
Author: ct
Time: 31 January 2022, 8:02:46.547876 pm
UUID: 9f3500d4-cb3b-1f4c-9950-7f27f7b2f965
Ancestors: System-ct.1296

Fixes DoIt tests for Windows. Uses Files-ct.189 (FileDirectory class >> #startUpDefaultDirectory). See: http://lists.squeakfoundation.org/pipermail/squeak-dev/2022-January/218179.html

=============== Diff against System-ct.1296 ===============

Item was changed:
  ----- Method: DoItFirst>>parse: (in category 'evaluating') -----
  parse: argumentList
  	"Iterate over the argument list, creating actions blocks. Register each action
  	block in the actions dictionary, and collect a list of the actions blocks to be
  	evaluated now. If any action blocks will require files or directory initialization,
  	send the appropriate startUp messages. Answer the list of action blocks to
  	be evaluated."
  
  	| args listOfBlocks needsFiles needsDirectory |
  	needsFiles := needsDirectory := false.
  	args := argumentList readStream.
  	listOfBlocks := OrderedCollection new.
  	[ args atEnd ] whileFalse: [ | key |
  		(key := self keyFor: args next) caseOf: {
  			[ #help ] -> [ self addFirst: [ self help ] to: listOfBlocks at: key. needsFiles := true] .
  			[ #debug ] -> [ self addWithoutEvaluation: [ self debug ] at: key] .
  			[ #doit ] -> [ | list | list := self nextTokensFrom: args. self add:[ self doIt: list ] to: listOfBlocks at: key. needsFiles := true] .
  			[ #evaluate ] -> [ | arg | arg := args next.  self add:[ self evaluateOption: arg ] to: listOfBlocks at: key. needsFiles := true] .
  			[ #file ] -> [ | arg | arg := args next.  self add:[ self evaluateFileContents: arg ] to: listOfBlocks at: key. needsFiles := true] .
  			[ #filein ] -> [ | list | list := self nextTokensFrom: args. self add:[ self fileIn: list ] to: listOfBlocks at: key. needsFiles := needsDirectory := true] .
  			[ #cwd ] -> [ | arg | arg := args next.  self addFirst:[ self cwd: arg ] to: listOfBlocks at: key. needsFiles := needsDirectory := true] .
  		} otherwise: [] ].
  	needsFiles ifTrue: [ FileStream startUp: true. "initialize stdout and stderr" ].
+ 	needsDirectory ifTrue: [ FileDirectory startUpDefaultDirectory ].
+ 	^ listOfBlocks!
- 	needsDirectory ifTrue: [ FileDirectory startUp "set default directory" ].
- 	^ listOfBlocks.
- !