--- a/SmallSense__CriticsWindow.st	Thu May 05 17:11:24 2016 +0200
+++ b/SmallSense__CriticsWindow.st	Mon May 09 10:07:02 2016 +0200
@@ -280,7 +280,7 @@
 
 
     ^ ('Disable this Rule'
-        colorizeAllWith: Color blue)
+        withColor: Color blue)
         actionForAll:[ self disableLintRule]
 !
 
@@ -333,7 +333,7 @@
                                 "/ h displayString , ' ' , (('[browse]' actionForAll:[ self browseLintRule]) colorizeAllWith:Color blue)
                                 anchor :=
                                         (('Browse Rule Class (',each class name,')' "displayString")
-                                            colorizeAllWith: Color blue)
+                                            withColor: Color blue)
                                                 actionForAll:[ self browseLintRule:each ].
                                 text := text , anchor.
                             ]