--- a/Tools__MethodRewriter.st	Fri Aug 30 10:43:39 2019 +0200
+++ b/Tools__MethodRewriter.st	Fri Aug 30 10:43:48 2019 +0200
@@ -1060,17 +1060,20 @@
     ].
 
     rules isNil ifTrue:[
-        |knownRules separator1 separator2 separator3|
+        |knownRules separator1 separator2 separator3 veryLightRed veryLightGreen|
+
+        veryLightRed := Color red lightened lightened lightened.
+        veryLightGreen := Color green lightened lightened lightened.
 
         "/ construct a pseudo list from existing transformation rules
-        separator1 := '----------- search for:' withColor:Color grey.
-        separator2 := '----------- replace by:' withColor:Color grey.
-        separator3 := '\=================================================================================\' withCRs withColor:Color grey.
+        separator1 := '----------- search for:' allGray.
+        separator2 := '----------- replace by:' allGray.
+        separator3 := '\=================================================================================\' withCRs allGray.
 
         knownRules := OrderedCollection new.
         (RBTransformationRule allSubclasses asNewOrderedCollection sort:[:a :b | a basicNew name < b basicNew name])
         do:[:each |
-            |rule |
+            |rule|
 
             rule := each new.
             knownRules add:{ rule .
@@ -1079,10 +1082,10 @@
                                     {
                                       separator1.
                                       each searchString
-                                        asText backgroundColorizeAllWith:(Color red lightened lightened lightened) .
+                                        asText backgroundColorizeAllWith:veryLightRed .
                                       separator2.
                                       each replaceString asText
-                                        asText backgroundColorizeAllWith:(Color green lightened lightened lightened) .
+                                        asText backgroundColorizeAllWith:veryLightGreen .
                                       separator3
                                     }
                                 ]