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

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

Name: KernelTests-ct.416
Author: ct
Time: 28 December 2021, 9:16:07.939249 pm
UUID: 4d9e8f85-6c1b-224a-bf18-b095010aa9ff
Ancestors: KernelTests-ct.415, KernelTests-ct.405

Merges KernelTests-ct.405 (regression test for Kernel-ct.1403).

=============== Diff against KernelTests-ct.415 ===============

Item was added:
+ ----- Method: ContextTest>>testObjectsAsMethod (in category 'tests') -----
+ testObjectsAsMethod
+ 
+ 	| result error |
+ 	SystemChangeNotifier uniqueInstance doSilently: [
+ 		self class addSelector: #foo withMethod: (TestObjectForMethod new xxxMethod: thisContext homeMethod)].
+ 	
+ 	result := Context runSimulated: [[self foo] on: Error do: [:ex | error := ex]].
+ 	error ifNotNil: [self fail: error].
+ 	
+ 	[self assert: self foo equals: result]
+ 		ensure: [self class removeSelector: #foo].!

Item was added:
+ ProtoObject subclass: #TestObjectForMethod
+ 	instanceVariableNames: 'method'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'KernelTests-Methods'!

Item was added:
+ ----- Method: TestObjectForMethod>>doesNotUnderstand: (in category 'dynamic forwarding') -----
+ doesNotUnderstand: aMessage
+ 
+ 	^ aMessage sendTo: method!

Item was added:
+ ----- Method: TestObjectForMethod>>flushCache (in category 'compatibility') -----
+ flushCache!

Item was added:
+ ----- Method: TestObjectForMethod>>methodClass: (in category 'compatibility') -----
+ methodClass: aMethodClass!

Item was added:
+ ----- Method: TestObjectForMethod>>run:with:in: (in category 'evaluating') -----
+ run: oldSelector with: arguments in: receiver 
+ 	^ {oldSelector. arguments. receiver}!

Item was added:
+ ----- Method: TestObjectForMethod>>selector: (in category 'compatibility') -----
+ selector: aSymbol!

Item was added:
+ ----- Method: TestObjectForMethod>>xxxMethod: (in category 'accessing') -----
+ xxxMethod: aCompiledMethod
+ 
+ 	method := aCompiledMethod!