Nicolas Cellier uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-nice.1313.mcz

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

Name: Kernel-nice.1313
Author: nice
Time: 8 March 2020, 11:24:45.756056 pm
UUID: a4264eea-df45-437e-a9bf-6e7a19c0abd2
Ancestors: Kernel-spfa.1312

Fix instructionPrinter for full closure: indent might be un-initialized, so use the message send.

Sacralize EncoderForSistaV1 as the SecondaryBytecodeSetEncoderClass, in order to mitigate the consequences if ever someone had the idea to re-initialize CompiledCode (or subclasses).

=============== Diff against Kernel-spfa.1312 ===============

Item was changed:
  ----- Method: CompiledCode class>>initialize (in category 'class initialization') -----
  initialize    "CompiledMethod initialize"
  	"Initialize class variables specifying the size of the temporary frame
  	needed to run instances of me."
  
  	SmallFrame := 16.	"Context range for temps+stack"
  	LargeFrame := 56.
  	PrimaryBytecodeSetEncoderClass ifNil:
  		[PrimaryBytecodeSetEncoderClass := EncoderForV3PlusClosures].
  	SecondaryBytecodeSetEncoderClass ifNil:
+ 		[SecondaryBytecodeSetEncoderClass := EncoderForSistaV1]!
- 		[SecondaryBytecodeSetEncoderClass := EncoderForV3PlusClosures]!

Item was changed:
  ----- Method: InstructionPrinter>>pushFullClosure:numCopied: (in category 'printing') -----
  pushFullClosure: aCompiledBlock numCopied: numCopied
  	| literalIndex |
  	literalIndex := method literals identityIndexOf: aCompiledBlock.
  	literalIndex = 0
  		ifTrue:
  			[self print: 'closureNumCopied: ', numCopied printString
  				, ' numArgs: ', aCompiledBlock numArgs printString]
  		ifFalse:
  			[self print: 'pushFullClosure: (self literalAt: ', literalIndex printString,
  						') numCopied: ', numCopied printString,
  						' "numArgs: ', aCompiledBlock numArgs printString, '"'].
  	
  	fullBlockRecursionSelector ifNotNil:
  		[(self class on: aCompiledBlock)
+ 			indent: self indent + 1;
- 			indent: indent + 1;
  			perform: fullBlockRecursionSelector with: stream]!