--- a/FindFileApplication.st	Sun Jan 05 17:28:45 2020 +0100
+++ b/FindFileApplication.st	Sun Jan 05 17:28:56 2020 +0100
@@ -2008,7 +2008,7 @@
 
     [
         directoryContents := dir directoryContents.
-    ] on:FileStream openErrorSignal do:[:ex|
+    ] on:OpenError do:[:ex|
         self showUnreadableFilesAndDirectoriesHolder value ifTrue:[
             list add:((ex pathName , ' -> ' , ex description) withColor:Color darkRed).
         ].