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

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

Name: HelpSystem-Core-mt.138
Author: mt
Time: 19 January 2022, 11:40:48.900855 am
UUID: 0b09067b-f04c-7149-8220-bf015b1c1c8a
Ancestors: HelpSystem-Core-mt.137

Fixes GetText export: "withCRs translated" -> "translated withCRs"

=============== Diff against HelpSystem-Core-mt.137 ===============

Item was changed:
  ----- Method: ClassBasedHelpTopic>>okToWriteSelector: (in category 'editing') -----
  okToWriteSelector: aSelector
  
  	| method |
  	method := self helpClass theMetaClass compiledMethodAt: aSelector ifAbsent: [^ true].
  	(method hasPragma: #generated) ifTrue: [^ true].
  	^ (Project uiManager
  		chooseFrom: (#('Override it' 'Don''t override, but browse it' 'Cancel') collect: #translated)
  		values: { [true]. [method browse. false]. [false] }
+ 		title: ('This will override the existing method\{1}!!\Proceed anyway?' translated withCRs asText
- 		title: ('This will override the existing method\{1}!!\Proceed anyway?' withCRs translated asText
  			format: {method reference asText
  				addAttribute: (TextLink new classAndMethod: method reference);
  				yourself })) value == true!