Nicolas Cellier uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-nice.1038.mcz

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

Name: Tools-nice.1038
Author: nice
Time: 13 April 2021, 6:00:43.25042 pm
UUID: 72d3e1ab-053b-5543-9dea-b96259cb2911
Ancestors: Tools-nice.1037

Simplify Symbol lookup

=============== Diff against Tools-nice.1037 ===============

Item was changed:
  ----- Method: SelectorBrowser>>selectedMessageName (in category 'accessing') -----
  selectedMessageName
+ 	"Answer the name of the currently selected message or nil if not a known Symbol."
- 	"Answer the name of the currently selected message."
  
  	| example tokens |
  	selectorIndex = 0 ifTrue: [^nil].
  	example := selectorList at: selectorIndex.
  	tokens := Scanner new scanTokens: example.
  	tokens size = 1 ifTrue: [^ tokens first].
  	tokens first == #'^' ifTrue: [^ nil].
  	(tokens second includes: $:) ifTrue: [^ example findSelector].
+ 	^Symbol lookup: tokens second!
- 	Symbol hasInterned: tokens second ifTrue: [:aSymbol | ^ aSymbol].
- 	^ nil!