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

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

Name: System-mt.1320
Author: mt
Time: 10 March 2022, 3:25:52.307178 pm
UUID: dfe0c7fd-40f3-1343-8dff-f259222375e1
Ancestors: System-mt.1319

Locale clean-up. Complements Multilingual-mt.269 and System-mt.1318

=============== Diff against System-mt.1319 ===============

Item was changed:
  ----- Method: InternalTranslator class>>loadForLocaleIsoString:fromGzippedMimeLiteral: (in category 'file-services') -----
  loadForLocaleIsoString: localeString fromGzippedMimeLiteral: mimeString 
  	"merge the translation from the mime literal."
  	| stream localeID translator gs rbStream s |
  	s := Base64MimeConverter mimeDecodeToBytes: mimeString readStream.
  	gs := GZipReadStream on: s.
  	rbStream := MultiByteBinaryOrTextStream with: gs contents asString.
  	rbStream converter: UTF8TextConverter new.
  	rbStream reset.
  	localeID := LocaleID isoString: localeString.
  	Locale
+ 		current: (Locale localeID: localeID)
- 		currentPlatform: (Locale localeID: localeID)
  		during: [stream := ReadStream on: rbStream contents].
  	translator := self localeID: localeID.
  	translator loadFromStream: stream.!

Item was changed:
  ----- Method: InternalTranslator>>scanFrom:environment: (in category 'fileIn/fileOut') -----
  scanFrom: aStream environment: anEnvironment
  	"Read a definition of dictionary.  
  	Make sure current locale corresponds my locale id"
  	| aString newTranslations assoc |
  	newTranslations := Dictionary new.
  	Locale
+ 		current: (Locale localeID: id)
- 		currentPlatform: (Locale localeID: id)
  		during: [
  			[aString := aStream nextChunk withSqueakLineEndings.
  			aString size > 0] whileTrue: 
  				[assoc := Compiler evaluate: aString environment: anEnvironment.
  				assoc value = ''
  					ifTrue: [self class registerPhrase: assoc key]
  					ifFalse: [newTranslations add: assoc]] ].
  	self mergeTranslations: newTranslations!

Item was changed:
  ----- Method: NaturalLanguageTranslator class>>loadForLocaleIsoString:fromGzippedMimeLiteral: (in category 'file-services') -----
  loadForLocaleIsoString: localeString fromGzippedMimeLiteral: mimeString 
  	"merge the translation from the mime literal."
  	| stream localeID translator gs rbStream s |
  	s := Base64MimeConverter mimeDecodeToBytes: mimeString readStream.
  	gs := GZipReadStream on: s.
  	rbStream := MultiByteBinaryOrTextStream with: gs contents asString.
  	rbStream converter: UTF8TextConverter new.
  	rbStream reset.
  	localeID := LocaleID isoString: localeString.
  	Locale
+ 		current: (Locale localeID: localeID)
- 		currentPlatform: (Locale localeID: localeID)
  		during: [stream := ReadStream on: rbStream contents].
  	translator := self localeID: localeID.
  	translator loadFromStream: stream.!

Item was changed:
  ----- Method: NaturalLanguageTranslator>>scanFrom:environment: (in category 'fileIn/fileOut') -----
  scanFrom: aStream environment: anEnvironment
  	"Read a definition of dictionary.  
  	Make sure current locale corresponds my locale id"
  
  	| newTranslations |
  	newTranslations := Dictionary new.
  	Locale
+ 		current: (Locale localeID: id)
- 		currentPlatform: (Locale localeID: id)
  		during: [ | aString assoc |
  			[aString := aStream nextChunk withSqueakLineEndings.
  			aString size > 0] whileTrue: 
  				[assoc := Compiler evaluate: aString environment: anEnvironment.
  				assoc value = ''
  					ifTrue: [self class registerPhrase: assoc key]
  					ifFalse: [newTranslations add: assoc]] ].
  	self mergeTranslations: newTranslations!