diff -r 55dc7652db5e -r 5a82c3c6dd2d FindFileApplication.st
--- a/FindFileApplication.st	Mon May 09 10:05:25 2016 +0200
+++ b/FindFileApplication.st	Mon May 09 10:05:28 2016 +0200
@@ -1528,7 +1528,7 @@
                         contentsMatches := true.
                         (f exists and:[f isReadable]) ifFalse:[
                             showUnreadableFilesAndDirectoriesHolder value ifTrue:[
-                                resultList add: (('*** "',f pathName,'" skipped - unreadable or bad symbolic link ***') colorizeAllWith:(Color red darkened)).
+                                resultList add: (('*** "',f pathName,'" skipped - unreadable or bad symbolic link ***') withColor:(Color red darkened)).
                             ].
                             contentsMatches := false.
                         ] ifTrue:[
@@ -1538,7 +1538,7 @@
                                 realFile := f linkInfo linkTargetPath asFilename. 
                                 (realFile exists and:[realFile isReadable]) ifFalse:[
                                     showUnreadableFilesAndDirectoriesHolder value ifTrue:[
-                                        resultList add: (('*** "',f pathName,'"->"',realFile pathName,'" skipped - unreadable or bad symbolic link destination ***') colorizeAllWith:(Color red darkened)).
+                                        resultList add: (('*** "',f pathName,'"->"',realFile pathName,'" skipped - unreadable or bad symbolic link destination ***') withColor:(Color red darkened)).
                                     ].
                                     contentsMatches := false.
                                     isBadFile := true.
@@ -1557,7 +1557,7 @@
 
                                         hugeFile ifTrue:[
                                             showUnreadableFilesAndDirectoriesHolder value ifTrue:[
-                                                resultList add: (('*** ' , f pathName , ' skipped - too large ***') colorizeAllWith:(Color red darkened)).
+                                                resultList add: (('*** ' , f pathName , ' skipped - too large ***') withColor:(Color red darkened)).
                                             ].
                                             contentsMatches := false.
                                         ] ifFalse:[
@@ -1566,14 +1566,14 @@
 
             "/                                    "/ this typically happens, when a binary file is read linewise ...
                                                 showUnreadableFilesAndDirectoriesHolder value ifTrue:[
-                                                    resultList add: (('*** ' , f pathName , ' skipped - binary/long line ***') colorizeAllWith:(Color red darkened)).
+                                                    resultList add: (('*** ' , f pathName , ' skipped - binary/long line ***') withColor:(Color red darkened)).
                                                 ].
                                                 contentsMatches := false.
                                             ] do:[
                                                 bigFile ifTrue:[
                                                     Stream lineTooLongErrorSignal handle:[:ex |
                                                         showUnreadableFilesAndDirectoriesHolder value ifTrue:[
-                                                            resultList add: (('*** ' , f pathName , ' skipped - too large ***') colorizeAllWith:(Color red darkened)).
+                                                            resultList add: (('*** ' , f pathName , ' skipped - too large ***') withColor:(Color red darkened)).
                                                         ].
                                                         contentsMatches := false.
                                                     ] do:[
@@ -1775,7 +1775,7 @@
         directoryContents := dir directoryContents.
     ] on:FileStream openErrorSignal do:[:ex|
         self showUnreadableFilesAndDirectoriesHolder value ifTrue:[
-            list add:((ex pathName , ' -> ' , ex description) colorizeAllWith:Color red darkened).
+            list add:((ex pathName , ' -> ' , ex description) withColor:Color red darkened).
         ].
         "/        self warn:('Cannot access %1\(%2)'
         "/                        bindWith:ex parameter printString