Levente Uzonyi uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ul.361.mcz

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

Name: Tools-ul.361
Author: ul
Time: 13 June 2011, 12:22:27.321 pm
UUID: a1744473-8ec1-f940-90d7-5799e069daaa
Ancestors: Tools-fbs.360

Use CompiledMethod >> #valueWithReceiver:arguments: instead of Object >> #withArgs:executeMethod: for evaluating a method.

=============== Diff against Tools-fbs.360 ===============

Item was changed:
  ----- Method: ParagraphEditor>>debug:receiver:in: (in category '*Tools') -----
  debug: aCompiledMethod receiver: anObject in: evalContext
  
  	| guineaPig debugger context |
  	guineaPig := [
+ 		aCompiledMethod
+ 			valueWithReceiver: anObject
+ 			 arguments: (evalContext ifNil: [ #() ] ifNotNil: [ { evalContext } ]) ] newProcess.
- 		anObject "Use primitive 188, because primitive 189 escapes the debugger somehow."
- 			withArgs: (evalContext ifNil: [ #() ] ifNotNil: [ { evalContext } ])
- 			executeMethod: aCompiledMethod ] newProcess.
  	context := guineaPig suspendedContext.
  	debugger := Debugger new
  		process: guineaPig
  		controller: ((Smalltalk isMorphic not and: [ScheduledControllers inActiveControllerProcess])
  				ifTrue: [ScheduledControllers activeController]
  				ifFalse: [nil])
  		context: context.
  	debugger openFullNoSuspendLabel: 'Debug it'.
  	[debugger interruptedContext method == aCompiledMethod]
  		whileFalse: [debugger send]!