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

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

Name: System-mt.1091
Author: mt
Time: 4 September 2019, 7:43:00.370989 pm
UUID: c032bb01-3d1e-40c2-a329-3268b1f2284c
Ancestors: System-pre.1090

Cherry pick class query for system organization from rb repository.

=============== Diff against System-pre.1090 ===============

Item was added:
+ ----- Method: SystemOrganizer>>classesIn: (in category 'query') -----
+ classesIn: categoryName
+ 
+ 	| classes |
+ 	classes := OrderedCollection new.
+ 	self categories withIndexCollect: [:cat :idx |
+ 		(categoryName match: cat)
+ 			ifTrue: [classes addAll: (self listAtCategoryNumber: idx)]
+ 			ifFalse: [nil]].
+ 	^ classes collect: [:clsName | Smalltalk classNamed: clsName]!

Item was changed:
  ----- Method: SystemOrganizer>>uncommentedClassesIn: (in category 'query') -----
  uncommentedClassesIn: categoryName
  
  	"SystemOrganization uncommentedClassesIn: 'Morphic*'"
  
+ 	^ (self classesIn: categoryName) select: [:cls | cls hasComment not]!
- 	| classes |
- 	classes := OrderedCollection new.
- 	self categories withIndexCollect: [:cat :idx |
- 		(categoryName match: cat)
- 			ifTrue: [classes addAll: (self listAtCategoryNumber: idx)]
- 			ifFalse: [nil]].
- 	^ (classes collect: [:clsName | Smalltalk at: clsName]
- 		thenSelect: [:cls | cls hasComment not]) asArray
- !