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

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

Name: Files-ct.189
Author: ct
Time: 31 January 2022, 8:03:16.983876 pm
UUID: 6c263b96-030b-d044-934f-7e8c75af61f6
Ancestors: Files-mt.188

FileDirectory: Extracts idempotent #startUpDefaultDirectory from #startUp, which is not idempotent when the host system is Windows, where the source files must not be opened multiple times. Clients only interested in refreshing the default directory should send the new extracted message.

See: http://lists.squeakfoundation.org/pipermail/squeak-dev/2022-January/218179.html

=============== Diff against Files-mt.188 ===============

Item was changed:
+ ----- Method: FileDirectory class>>startUp (in category 'system start up') -----
- ----- Method: FileDirectory class>>startUp (in category 'name utilities') -----
  startUp
- 	"Establish the platform-specific FileDirectory subclass. Do any platform-specific startup."
- 	self setDefaultDirectoryClass.
  
+ 	self startUpDefaultDirectory.
+ 	Smalltalk openSourceFiles.!
- 	self setDefaultDirectory: (self dirPathFor: Smalltalk imageName).
- 
- 	Preferences startInUntrustedDirectory 
- 		ifTrue:[	"The SecurityManager may override the default directory to prevent unwanted write access etc."
- 				self setDefaultDirectory: SecurityManager default untrustedUserDirectory.
- 				"Make sure we have a place to go to"
- 				DefaultDirectory assureExistence].
- 	Smalltalk openSourceFiles.
- 	(Smalltalk classNamed: #DoItFirst) ifNotNil: [ :doit | doit perform: #reevaluateCwd ].
- !

Item was added:
+ ----- Method: FileDirectory class>>startUpDefaultDirectory (in category 'system start up') -----
+ startUpDefaultDirectory
+ 	"Establish the platform-specific FileDirectory subclass. Do any platform-specific startup."
+ 
+ 	self setDefaultDirectoryClass.
+ 	self setDefaultDirectory: (self dirPathFor: Smalltalk imageName).
+ 
+ 	Preferences startInUntrustedDirectory 
+ 		ifTrue:[	"The SecurityManager may override the default directory to prevent unwanted write access etc."
+ 				self setDefaultDirectory: SecurityManager default untrustedUserDirectory.
+ 				"Make sure we have a place to go to"
+ 				DefaultDirectory assureExistence].
+ 	
+ 	(Smalltalk classNamed: #DoItFirst) ifNotNil: [ :doit | doit perform: #reevaluateCwd ].!