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

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

Name: Tools-ct.1044
Author: ct
Time: 29 April 2021, 4:11:22.748797 pm
UUID: c5dcb710-6784-bf4e-a9e6-52ce7385bf32
Ancestors: Tools-mt.1043

Fixes styling in MessageSets when prettyPrint is turned on.

=============== Diff against Tools-mt.1043 ===============

Item was changed:
  ----- Method: MessageSet>>aboutToStyle: (in category 'code pane') -----
  aboutToStyle: aPluggableShoutMorphOrView
  	"This is a notification that aPluggableShoutMorphOrView is about to re-style its text.
  	Set the classOrMetaClass in aPluggableShoutMorphOrView, so that identifiers
  	will be resolved correctly.
  	Answer true to allow styling to proceed, or false to veto the styling"
  
  	| selectedMessageName showingMethod |
+ 	self isModeStyleable ifFalse: [^false].
- 	self showingSource ifFalse: [^false].
  	selectedMessageName := self selectedMessageName.
  	showingMethod := (#(Comment Definition Hierarchy) includes: selectedMessageName) not.
  	"Hack!!  setting classOrMetaClass: to nil allows doit or class definition colouring."
  	aPluggableShoutMorphOrView classOrMetaClass: (showingMethod ifTrue: [self selectedClassOrMetaClass]).
  	^(#(Comment Hierarchy) includes: selectedMessageName) not!