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

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

Name: System-mt.1284
Author: mt
Time: 13 January 2022, 1:33:55.814863 pm
UUID: 23127222-33d7-0c4d-8a59-c057be3e8c67
Ancestors: System-mt.1283

Complements PackageInfo-Base-mt.75

Fixes slip in #browseClassList:name: ... I don't want to dig into ClassListBrowser for now ... but I think the actual bug is actually in there.

=============== Diff against System-mt.1283 ===============

Item was added:
+ ----- Method: SystemNavigation>>allExtensionClassesOfPackage:localTo: (in category 'query') -----
+ allExtensionClassesOfPackage: packageNameOrInfo localTo: classCategory
+ 
+ 	^ (self packageInfoFor: packageNameOrInfo) extensionClassesLocalTo: classCategory!

Item was added:
+ ----- Method: SystemNavigation>>allExtensionMethodsOfPackage:localTo: (in category 'query') -----
+ allExtensionMethodsOfPackage: packageNameOrInfo localTo: classCategory
+ 
+ 	^ (self packageInfoFor: packageNameOrInfo) extensionMethodsLocalTo: classCategory!

Item was added:
+ ----- Method: SystemNavigation>>browseAllExtensionClassesOfPackage:localTo: (in category 'browse') -----
+ browseAllExtensionClassesOfPackage: aPackageInfoOrName localTo: aClassCategory
+ 	"self default browseAllExtensionClassesOfPackage: #Morphic localTo: 'Morphic-Support' "
+ 
+ 	| packageInfo |
+ 	packageInfo := self packageInfoFor: aPackageInfoOrName.
+ 	^ self
+ 		browseClassList: [self allExtensionClassesOfPackage: packageInfo localTo: aClassCategory]
+ 		name: ('Extensions of package {1}' translated format: {packageInfo name})!

Item was added:
+ ----- Method: SystemNavigation>>browseAllExtensionMethodsOfPackage:localTo: (in category 'browse') -----
+ browseAllExtensionMethodsOfPackage: aPackageInfoOrName localTo: aClassCategory
+ 	"self default browseAllExtensionMethodsOfPackage: #Morph localTo: 'Morphic-Support' "
+ 
+ 	| packageInfo |
+ 	packageInfo := self packageInfoFor: aPackageInfoOrName.
+ 	^ self
+ 		browseMessageList: [self allExtensionMethodsOfPackage: packageInfo localTo: aClassCategory]
+ 		name: ('Extensions of package {1}' translated format: {packageInfo name})!

Item was changed:
  ----- Method: SystemNavigation>>browseClassList:name: (in category 'browse') -----
  browseClassList: classListOrBlock name: aTitle
  
  	| classList |
  	classList := classListOrBlock isBlock
  		ifTrue: [ Cursor wait showWhile: classListOrBlock ]
  		ifFalse: [ classListOrBlock ].
  	classList size = 0 ifTrue: [
  		^self inform: 'There are no', String cr, aTitle ].
  	^ ToolSet
+ 		openClassListBrowser: (classList collect: [:each | each theNonMetaClass name])
- 		openClassListBrowser: (classList collect: [:each | each name])
  		title: aTitle!