Christoph Thiede uploaded a new version of SystemReporter to project The Trunk:
http://source.squeak.org/trunk/SystemReporter-ct.61.mcz

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

Name: SystemReporter-ct.61
Author: ct
Time: 2 April 2022, 6:47:45.377896 pm
UUID: 3f75ee7c-fb80-c24a-a21b-dd095ab761b2
Ancestors: SystemReporter-mt.60

Fixes slip in report of image packages for treated versions.

=============== Diff against SystemReporter-mt.60 ===============

Item was changed:
  ----- Method: SystemReporter>>reportImagePackages: (in category 'reporting') -----
  reportImagePackages: aStream
  	
  	| organizer trunk treated inbox release releaseRepo attribute others |
  	organizer := PackageOrganizer default.	
  		
  	self header: 'System Categories with Unknown Package' on: aStream.
  	SystemOrganization categories
  		select: [:category | (organizer packageOfSystemCategory: category ifNone: []) isNil]
  		thenDo: [:category | aStream nextPutAll: category; cr].
  
  	aStream cr.
  	self header: 'Packages with Only Cache Repository' on: aStream.
  	organizer packages 
  		select: [:package |
  			| repos |
  			repos := package mcPackage workingCopy repositoryGroup repositories.
  			repos size = 1 and: [repos first == MCRepository packageCache]]
  		thenDo: [:package | aStream nextPutAll: package mcPackage workingCopy description; cr].
  		
  	aStream cr.
  	self header: 'Official Packages' on: aStream.
  	others := OrderedCollection new.
  	trunk := MCRepository trunk allVersionNames.
  	inbox := MCRepository inbox allVersionNames.
  	treated := MCRepository treated allVersionNames.
  	releaseRepo := [[ReleaseBuilder releaseRepository] valueSupplyingAnswer: {'*'. true}] on: ReleaseBuilderFailed do: [:ex | nil].
  	release := releaseRepo ifNotNil: [:repo | repo allVersionNames] ifNil: [#()].
  		
  	(organizer packages sorted: [:a :b | a packageName <= b packageName])
  		collect: [:package | package mcPackage workingCopy]
  		thenDo: [:workingCopy | | version repo |
  			version := workingCopy ancestry ancestors ifNotEmpty: [:a | a first].
  			version ifNotNil: [version := version name].
  			attribute := TextEmphasis normal.
  			(release includes: version)
  				ifTrue: [repo := releaseRepo]
  				ifFalse: [(trunk includes: version)
  					ifTrue: [repo := MCRepository trunk]
  					ifFalse: [(inbox includes: version)
  						ifTrue: [repo := MCRepository inbox. attribute := TextEmphasis bold]
  						ifFalse: [(treated includes: version)
+ 							ifTrue: [repo := MCRepository treated. attribute := TextColor gray]
- 							ifTrue: [repo := treated. attribute := TextColor gray]
  							ifFalse: [others add: workingCopy]]].
  			repo ifNotNil: [ "Only official packages here."
  				aStream withAttribute: attribute do: [
  					aStream
  						nextPutAll: workingCopy description;
  						nextPutAll: ' --- ';
  						nextPutAll: repo description; cr]]]].
  	
  	aStream cr.
  	self header: 'Other Packages' on: aStream.
  	others
  		select: [:workingCopy | workingCopy repositoryGroup repositories size > 1]
  		thenDo: [:workingCopy |
  			aStream
  				nextPutAll: workingCopy description; 
  				nextPutAll: ' --- ';
  				nextPutAll: workingCopy repositoryGroup repositories second description; cr]
  !