A new version of SystemReporter was added to project The Inbox:
http://source.squeak.org/inbox/SystemReporter-ct.53.mcz

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

Name: SystemReporter-ct.53
Author: ct
Time: 18 October 2021, 6:54:23.938498 pm
UUID: e1a37454-a58c-1b4d-9a8f-a91c4b6e7de6
Ancestors: SystemReporter-eem.52

Fixes a slip in the new "Image Packages" page of the SystemReporter.

=============== Diff against SystemReporter-eem.52 ===============

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]
  !