Christoph Thiede uploaded a new version of ST80Tools to project The Trunk:
http://source.squeak.org/trunk/ST80Tools-ct.15.mcz

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

Name: ST80Tools-ct.15
Author: ct
Time: 30 April 2022, 4:18:08.682924 pm
UUID: 6031d20c-60bf-c341-aaf2-4109e66e0e73
Ancestors: ST80Tools-mt.14

Complements Morphic-ct.1978 (#debugExpression:requestor:). See also: ST80-ct.277.

=============== Diff against ST80Tools-mt.14 ===============

Item was changed:
  ----- Method: ParagraphEditor>>debugIt (in category '*ST80Tools') -----
  debugIt
  
  	| receiver context helperProcess |
  	self lineSelectAndEmptyCheck: [^self].
+ 	
+ 	(model respondsTo: #debugExpression:requestor:)
+ 		ifTrue: [^ model perform: #debugExpression:requestor: with: self selection with: self].
+ 	(model respondsTo: #debugExpression:)
+ 		ifTrue: [^ model perform: #debugExpression: with: self selection].
+ 	
- 
  	(model respondsTo: #doItReceiver) 
  		ifTrue: [receiver := model doItReceiver].
  		
  	(model respondsTo: #doItContext) 
  		ifTrue: [context := model doItContext].
  		
  	(self compileSelectionFor: receiver in: context) ifNotNil: [:doItMethod |
  		helperProcess := context
  			ifNil: [self assert: doItMethod selector = #DoIt.
  				Process forMethod: doItMethod receiver: receiver]
  			ifNotNil: [self assert: doItMethod selector = #DoItIn:.
  				Process forMethod: doItMethod receiver: receiver arguments: {context}].
  		helperProcess debugWithTitle: 'Debug it' translated].!