--- a/Tools__NewSystemBrowser.st	Mon Sep 06 16:09:32 2021 +0100
+++ b/Tools__NewSystemBrowser.st	Wed Sep 15 13:57:00 2021 +0100
@@ -25,36 +25,36 @@
 		isEmbedded hasNonEmptyEnvironmentSelectedHolder
 		smalllintRulesOrAllHolder smalllintRulesOrDefaultHolder
 		explainProcess'
-	classVariableNames:'LastNewProtocols LastProtocolRenames LastCategoryRenames
-		LastCategoryRenameOld LastCategoryRenameNew LastProjectMoves
-		LastNameSpaceMove LastMethodMoveOrCopyTargetClass
-		LastClassFilterBlockString LastMethodFilterBlockString
-		LastBreakPointConditionString LastIndividualChecks
-		LastAcceptPackage LastVariableRenames LastVisitorClassName
-		LastTemporaryVariableName FindHistory SynchronousUpdate
-		DoubleClickIsOpenBrowser ShowMethodTemplateWhenProtocolIsSelected
-		DefaultShowMethodInheritance DefaultEmphasizeUnloadedClasses
-		DefaultImmediateSyntaxColoring DefaultImmediateExplaining
-		DefaultSyntaxColoring DefaultToolBarVisible
-		DefaultCodeInfoVisible DefaultShortNameInTabs
-		DefaultHideUnloadedClasses DefaultMarkApplications
-		DefaultAutoFormat DefaultShowMethodComplexity
-		DefaultShowMethodTypeIcon DefaultShowSpecialResourceEditors
-		DefaultShowSyntheticMethods SharedMethodCategoryCache
-		LastMethodProcessingBlockString LastLoadedPackages
-		DefaultShortAllClassesInNameSpaceOrganisation LastBaseVersionTag
-		LastTag DefaultShowPseudoProtocols DefaultShowMultitabMode
-		LastRenamedOld LastRenamedNew LastImportedPackage
-		LastLintRulesHolder NewNavigationHistory
-		LastLiteralReplacementType LastLiteralReplacementNewName
-		LastLiteralReplacementOldLiteral LastNewProjectType
-		LastClassProcessingBlockString RecentlyClosedList
-		LastClassSearchBoxShowedFullName CachedTagToRevisionMapping
-		CachedMethodsImplemented LastCypressDirectory
-		LastClassSearchBoxShowedJavaOnly LastRemoteRepository
-		LastClassDocDirectory DefaultShowCoverage LastLintedPackage
-		LastSearchedImplementors LastSearchedSenders
-		LastComparedClassName LastTonelDirectories'
+	classVariableNames:'CachedMethodsImplemented CachedTagToRevisionMapping
+		DefaultAutoFormat DefaultCodeInfoVisible
+		DefaultEmphasizeUnloadedClasses DefaultHideUnloadedClasses
+		DefaultImmediateExplaining DefaultImmediateSyntaxColoring
+		DefaultMarkApplications
+		DefaultShortAllClassesInNameSpaceOrganisation
+		DefaultShortNameInTabs DefaultShowCoverage
+		DefaultShowMethodComplexity DefaultShowMethodInheritance
+		DefaultShowMethodTypeIcon DefaultShowMultitabMode
+		DefaultShowPseudoProtocols DefaultShowSpecialResourceEditors
+		DefaultShowSyntheticMethods DefaultSyntaxColoring
+		DefaultToolBarVisible DoubleClickIsOpenBrowser FindHistory
+		LastAcceptPackage LastBaseVersionTag
+		LastBreakPointConditionString LastCategoryRenameNew
+		LastCategoryRenameOld LastCategoryRenames LastClassDocDirectory
+		LastClassFilterBlockString LastClassProcessingBlockString
+		LastClassSearchBoxShowedFullName LastClassSearchBoxShowedJavaOnly
+		LastComparedClassName LastCypressDirectory LastImportedPackage
+		LastIndividualChecks LastLintRulesHolder LastLintedPackage
+		LastLiteralReplacementNewName LastLiteralReplacementOldLiteral
+		LastLiteralReplacementType LastLoadedPackages
+		LastMethodFilterBlockString LastMethodMoveOrCopyTargetClass
+		LastMethodProcessingBlockString LastNameSpaceMove
+		LastNewProjectType LastNewProtocols LastProjectMoves
+		LastProtocolRenames LastRemoteRepository LastRenamedNew
+		LastRenamedOld LastSearchedImplementors LastSearchedSenders
+		LastTag LastTemporaryVariableName LastTonelDirectories
+		LastVariableRenames LastVisitorClassName NewNavigationHistory
+		RecentlyClosedList SharedMethodCategoryCache
+		ShowMethodTemplateWhenProtocolIsSelected SynchronousUpdate'
 	poolDictionaries:''
 	category:'Interface-Browsers-New'
 !
@@ -18599,7 +18599,7 @@
 
     colorizedFullNames := initialFullNames collect:[:clsName |
                                 (classNamesInChangeSet includes:clsName) ifTrue:[
-                                    clsName asText emphasisAllAdd:(UserPreferences current emphasisForChangedCode)
+                                    clsName asText emphasisAllAdd:(SystemBrowser emphasisForChangedCode)
                                 ] ifFalse:[
                                     clsName
                                 ].
@@ -18607,7 +18607,7 @@
 
     colorizedShortNames := initialShortNames with:initialFullNames collect:[:shortName :clsName |
                                 (classNamesInChangeSet includes:clsName) ifTrue:[
-                                    shortName asText emphasisAllAdd:(UserPreferences current emphasisForChangedCode)
+                                    shortName asText emphasisAllAdd:(SystemBrowser emphasisForChangedCode)
                                 ] ifFalse:[
                                     shortName
                                 ].