--- a/extensions.st	Mon Sep 06 16:09:32 2021 +0100
+++ b/extensions.st	Wed Sep 15 13:57:00 2021 +0100
@@ -1673,7 +1673,7 @@
     isInChangeSet := currentChangeSet includesChangeForClass:cls selector:selector.
 
     isInChangeSet ifTrue:[
-        s := s asText emphasisAllAdd:(userPreferences emphasisForChangedCode)
+        s := s asText emphasisAllAdd:(SystemBrowser emphasisForChangedCode)
     ].
 
     (cls isNil or:[(mthdPackage := self package) ~= cls package]) ifTrue:[
@@ -1705,6 +1705,7 @@
     "Created: / 05-02-2000 / 22:55:56 / cg"
     "Modified: / 05-03-2007 / 16:18:53 / cg"
     "Modified: / 20-07-2010 / 15:39:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 15-09-2021 / 13:30:38 / Jan Vrany <jan.vrany@labware.com>"
 ! !
 
 !Method methodsFor:'printing & storing'!