Eliot Miranda uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-eem.1196.mcz

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

Name: Kernel-eem.1196
Author: eem
Time: 20 November 2018, 1:39:00.487858 pm
UUID: d725b2e7-fe69-472d-8775-25948cabcc8c
Ancestors: Kernel-eem.1195

Fix ClosureExtractor (embeddedBlockClosures) for exotic Sista blocks.

=============== Diff against Kernel-eem.1195 ===============

Item was changed:
  ----- Method: ClosureExtractor>>pushFullClosure:numCopied: (in category 'instruction decoding') -----
  pushFullClosure: aCompiledBlock numCopied: numCopied
  	"Create a BlockClosure corresponding to the closure bytecode
  	 and execute the action block with it. The created BlockClosure is only a pseudo value,
  	 it is not populated with meaningful context and argument information."
+ 	self pushFullClosure: aCompiledBlock numCopied: numCopied receiverOnStack: false ignoreOuterContext: false!
- 	| block |
- 	block := FullBlockClosure
- 				receiver: nil
- 				outerContext: currentContext
- 				method: aCompiledBlock
- 				copiedValues: (Array new: numCopied).
- 	currentContext := block asContextWithSender: currentContext.
- 	action value: block!

Item was added:
+ ----- Method: ClosureExtractor>>pushFullClosure:numCopied:receiverOnStack:ignoreOuterContext: (in category 'instruction decoding') -----
+ pushFullClosure: aCompiledBlock numCopied: numCopied receiverOnStack: rcvrOnStack ignoreOuterContext: ignoreOuterContext
+ 	"Create a BlockClosure corresponding to the closure bytecode
+ 	 and execute the action block with it. The created BlockClosure is only a pseudo value,
+ 	 it is not populated with meaningful context and argument information."
+ 	| block encoderClass endPC extractor subScanner |
+ 	block := FullBlockClosure
+ 				receiver: (rcvrOnStack ifTrue: [#onStackReceiver])
+ 				outerContext: (ignoreOuterContext ifFalse: [currentContext])
+ 				method: aCompiledBlock
+ 				copiedValues: (Array new: numCopied).
+ 	currentContext := block asContextWithSender: currentContext.
+ 	action value: block.
+ 	subScanner := aCompiledBlock scanner.
+ 	extractor := self class withAction: action andScanner: subScanner.
+ 	endPC := aCompiledBlock endPC.
+ 	encoderClass := aCompiledBlock encoderClass.
+ 	[subScanner pc <= endPC] whileTrue:
+ 		[encoderClass interpretNextInstructionFor: extractor in: subScanner]!