Frank Shearar uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-fbs.827.mcz

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

Name: Kernel-fbs.827
Author: fbs
Time: 30 December 2013, 10:13:12.71 am
UUID: d83c2233-41dd-e24f-9386-04a55ab9318c
Ancestors: Kernel-nice.826

Move Transcripter's invoker to System-Recovery. All #primitiveError: senders are in Tools, so this completes the move of recovery things to System-Recovery.

=============== Diff against Kernel-nice.826 ===============

Item was removed:
- ----- Method: Object>>primitiveError: (in category 'private') -----
- primitiveError: aString 
- 	"This method is called when the error handling results in a recursion in 
- 	calling on error: or halt or halt:."
- 	| hasTranscripter transcripter |
- 	hasTranscripter := (Smalltalk classNamed: #Transcripter)
- 		ifNotNil: [ :t | transcripter := t. true]
- 		ifNil: [false].
- 	(String
- 		streamContents: 
- 			[:s |
- 			| context |
- 			s nextPutAll: '***System error handling failed***'.
- 			s cr; nextPutAll: aString.
- 			context := thisContext sender sender.
- 			20 timesRepeat: [context == nil ifFalse: [s cr; print: (context := context sender)]].
- 			s cr; nextPutAll: '-------------------------------'.
- 			hasTranscripter
- 				ifTrue: [
- 					s cr; nextPutAll: 'Type CR to enter an emergency evaluator.'.
- 					s cr; nextPutAll: 'Type any other character to restart.']
- 				ifFalse: [
- 					s cr; nextPutAll: 'Type any character to restart.']])
- 		displayAt: 0 @ 0.
- 	[Sensor keyboardPressed] whileFalse.
- 	Sensor keyboard = Character cr ifTrue: [
- 		hasTranscripter ifTrue: [transcripter emergencyEvaluator]].
- 	Project current resetDisplay!