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

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

Name: Compiler-eem.291
Author: eem
Time: 19 December 2014, 10:15:04.766 am
UUID: 20aefd33-c4e7-45b2-88b7-e6e29b5988b9
Ancestors: Compiler-eem.290

More relevant and neater primitive method
decompilation with VMMaker loaded.

=============== Diff against Compiler-eem.290 ===============

Item was changed:
  ----- Method: MethodNode>>printPrimitiveOn: (in category 'printing') -----
  printPrimitiveOn: aStream
  	"Print the primitive on aStream"
  	| primDecl |
  	primitive = 0 ifTrue:
  		[^self].
  	primitive = 120 ifTrue: "External call spec"
  		[^aStream print: encoder literals first].
  	aStream nextPutAll: '<primitive: '.
  	primitive = 117
  		ifTrue:
  			[primDecl := encoder literals at: 1.
  			 (primDecl at: 2) asString printOn: aStream.
  			 (primDecl at: 1) ifNotNil:
  				[:moduleName|
  				aStream nextPutAll:' module: '.
  				moduleName asString printOn: aStream]]
  		ifFalse:
  			[aStream print: primitive].
  	self primitiveErrorVariableName ifNotNil:
  		[:primitiveErrorVariableName|
  		 aStream nextPutAll: ' error: '; nextPutAll: primitiveErrorVariableName].
  	aStream nextPut: $>.
+ 	((Smalltalk classNamed: #StackInterpreter) ifNil: [Smalltalk classNamed: #Interpreter]) ifNotNil:
+ 		[:interpreterClass|
+ 		 aStream nextPutAll: ' "', (interpreterClass primitiveTable at: primitive + 1), '" ']!
- 	Smalltalk at: #Interpreter ifPresent:[:cls|
- 		aStream nextPutAll: ' "',
- 							((cls classPool at: #PrimitiveTable) at: primitive + 1),
- 							'" ']!