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

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

Name: System-mt.1281
Author: mt
Time: 11 January 2022, 11:06:08.425851 am
UUID: f01da0ec-0746-46b1-b26c-0b2d1c5c1fac
Ancestors: System-ct.1280

Revise System-ct.1279.

=============== Diff against System-ct.1280 ===============

Item was changed:
  ----- Method: Utilities class>>authorName (in category 'identification') -----
  authorName
  	"Maybe interactive. Answer the full name to be used in various tools to identify the user/author. Ask the user if the name is empty. Try to derive the name from existing initials."
  
  	^ AuthorName ifEmpty: [
+ 		AuthorInitials ifNotEmpty: [:initials |
+ 			SystemNavigation authorsInverted at: initials ifPresent: [:authorNames |
+ 				AuthorName := authorNames sorted joinSeparatedBy: '/']].
+ 		self setAuthorName. "Let the user enter a new or confirm the current value."
+ 		AuthorName]!
- 		AuthorInitials
- 			ifEmpty: [self setAuthorName]
- 			ifNotEmpty: [:initials |
- 				SystemNavigation authorsInverted
- 					at: initials
- 					ifPresent: [:authorNames |
- 						AuthorName := authorNames sorted joinSeparatedBy: '/'.
- 						self setAuthorName. "Let the user confirm"]
- 					ifAbsent: [self setAuthorName]]]!

Item was changed:
  ----- Method: Utilities class>>setAuthorName (in category 'identification') -----
  setAuthorName
  
+ 	AuthorName := Project uiManager 
- 	^ AuthorName := Project uiManager 
  		request: 'Please type your name:' translated
+ 		initialAnswer: (AuthorName ifEmpty: ['Your Name' translated]).!
- 		initialAnswer: (AuthorName ifEmpty: ['Your Name' translated])!