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

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

Name: SystemReporter-mt.55
Author: mt
Time: 19 January 2022, 11:46:19.228855 am
UUID: f942a5ca-2a99-4e48-8ade-7e9949c04067
Ancestors: SystemReporter-eem.54

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

=============== Diff against SystemReporter-eem.54 ===============

Item was changed:
  ----- Method: SystemReporter>>reportSpaceAnalysis: (in category 'reporting') -----
  reportSpaceAnalysis: aStream
  
  	spaceAnalysisResult ifNil: [
  		(UIManager default
+ 			confirm: 'Running the space analysis\might take a few seconds.' translated withCRs
- 			confirm: 'Running the space analysis\might take a few seconds.' withCRs translated
  			title: 'Continue?' translated)
  				ifFalse: [
  					categoriesSelected remove: #'Space Analysis'.
  					^ self changed: #categorySelected ].
  		
  		spaceAnalysisResult := String streamContents: [ :stream |
  			SpaceTally new printSpaceAnalysis: 1 onStream: stream ] ].
  	self header: 'Space Analysis' on: aStream.
  	aStream nextPutAll: spaceAnalysisResult; cr!

Item was changed:
  ----- Method: SystemReporter>>reportTestRunner: (in category 'reporting') -----
  reportTestRunner: aStream 
  	
  	testRunner ifNil: [ 
  		(UIManager default
+ 			confirm: 'Running all tests might\take some minutes.' translated withCRs
- 			confirm: 'Running all tests might\take some minutes.' withCRs translated
  			title: 'Continue?')
  				ifTrue: [ testRunner := TestRunner new runAll ]
  				ifFalse:
  					[ categoriesSelected remove: #SUnit.
  					^ self changed: #categorySelected ] ].
  	self
  		header: 'SUnit Results'
  		on: aStream.
  	aStream nextPutAll: testRunner statusText ; cr ; cr.
  	self
  		header: 'Failed Tests'
  		on: aStream.
  	testRunner failedList do:
  		[ : each | self
  			printDebugExpressionFor: each
  			on: aStream.
  		aStream cr ].
  	aStream cr.
  	self
  		header: 'Errors'
  		on: aStream.
  	testRunner errorList do:
  		[ : each | self
  			printDebugExpressionFor: each
  			on: aStream.
  		aStream cr ]!

Item was changed:
  ----- Method: SystemReporter>>reportTinyBenchmarks: (in category 'reporting') -----
  reportTinyBenchmarks: aStream
  	tinyBenchmarksResult ifNil: [
  		(UIManager default
+ 			confirm: 'Running all benchmarks\might take a few seconds.' translated withCRs
- 			confirm: 'Running all benchmarks\might take a few seconds.' withCRs translated
  			title: 'Continue?' translated)
  				ifFalse: [
  					categoriesSelected remove: #'Tiny Benchmarks'.
  					^ self changed: #categorySelected ].
  		Cursor wait showWhile: [tinyBenchmarksResult := 0 tinyBenchmarks]].
  	self header: 'Tiny Benchmarks' on: aStream.
  	aStream nextPutAll: tinyBenchmarksResult; cr!