Frank Shearar uploaded a new version of Tools to project The Inbox:
http://source.squeak.org/inbox/Tools-fbs.442.mcz

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

Name: Tools-fbs.442
Author: fbs
Time: 30 January 2013, 12:31:30.073 pm
UUID: e0c3f13d-4fb8-4ade-af04-90f3fcc79a1b
Ancestors: Tools-fbs.441

Use the new exceptionMessage.

=============== Diff against Tools-fbs.441 ===============

Item was changed:
  ----- Method: Debugger>>createMethod (in category 'private') -----
  createMethod
  	"Should only be called when this Debugger was created in response to a
  	MessageNotUnderstood exception. Create a stub for the method that was
  	missing and proceed into it."
  	
  	| msg chosenClass |
+ 	msg := self contextStackTop exceptionMessage.
- 	msg := self contextStackTop tempAt: 1.
  	chosenClass := self
  		askForSuperclassOf: self contextStackTop receiver class
  		toImplement: msg selector
  		ifCancel: [^self].
+ 	self implement: msg message inClass: chosenClass.
- 	self implement: msg inClass: chosenClass.
  !

Item was changed:
  ----- Method: Debugger>>createOverridingMethod (in category 'private') -----
  createOverridingMethod
  	"Should only be called when this Debugger was created in response to a
  	SubclassResponsibility exception. Create a stub for the method that was
  	missing and proceed into it."
  	| msgSend |
+ 	msgSend := self contextStackTop exceptionMessage.
- 	msgSend := self contextStackTop invocationMessage.
  	self implement: msgSend asMessage inClass: msgSend receiver class inCategory: msgSend selectorCategory.!