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

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

Name: System-mt.1393
Author: mt
Time: 23 March 2023, 5:55:33.245726 pm
UUID: 08e09130-c160-bb49-881b-609cbb832893
Ancestors: System-mt.1392

We must not intern the names of pragma preferences as symbols bc. those are UI strings. Their selectors are already symbols.

=============== Diff against System-mt.1392 ===============

Item was added:
+ ----- Method: PragmaPreference>>name:helpString:categoryList:type: (in category 'private') -----
+ name: aName helpString: aString categoryList: aList type: aType
+ 	"Do not make aName an interned symbol."
+ 
+ 	name := aName.
+ 	value := defaultValue := nil.
+ 	
+ 	helpString := aString.
+ 	localToProject := false.
+ 	type := aType.
+ 	categoryList := aList
+ 						ifNil: [OrderedCollection with: #unclassified]
+ 						ifNotNil: [aList collect: [:elem | elem asSymbol]].
+ 
+ 	changeInformee := nil.
+ 	changeSelector  := nil.!

Item was changed:
  ----- Method: Preferences class>>preference:categoryList:description:type: (in category 'private') -----
  preference: prefName categoryList: categoryList description: helpString type: typeSymbol
  	"Create a preference for a preference pragma in a method."
  	
  	^ PragmaPreference new
  		 name: prefName
- 		 defaultValue: nil	"always nil"
  		 helpString: helpString
- 		 localToProject: false "governed by the method"
  		 categoryList: categoryList
- 		 changeInformee: nil
- 		 changeSelector: nil
  		 type: typeSymbol!

Item was added:
+ (PackageInfo named: 'System') postscript: 'PragmaPreference allInstancesDo: [:ea |
+ 	ea instVarNamed: #name put: ea name asString].'!