--- a/FileBrowser.st	Wed Oct 10 20:56:05 2018 +0200
+++ b/FileBrowser.st	Wed Oct 10 21:24:09 2018 +0200
@@ -2165,7 +2165,7 @@
 
     self selectedFilesDo:[:fileName |
         path := currentDirectory filenameFor:fileName.
-        path isDirectory ifFalse:[
+        path isRegularFile ifTrue:[
             img := Image fromFile:(path pathName).
             img notNil ifTrue:[
                 tempFileXPM  := Filename newTemporary withSuffix:'xpm'.
@@ -3249,7 +3249,7 @@
 
     self selectedFilesDo:[:fileName |
         path := currentDirectory filenameFor:fileName.
-        path isDirectory ifFalse:[
+        path isRegularFile ifTrue:[
             img := Image fromFile:(path pathName).
             img notNil ifTrue:[
                 aBlock value:img
@@ -3429,7 +3429,7 @@
         |p path|
 
         path := currentDirectory filenameFor:fileName.
-        path isDirectory ifFalse:[
+        path isRegularFile ifTrue:[
             p := Java 
                     javaProcessForMainOf:(Java classForName:'sun.applet.AppletViewer')
                     argumentString:path pathName.
@@ -6758,7 +6758,7 @@
     ) do:[:f |
         |n|
         n := currentDirectory construct:f.
-        (n isReadable and:[n isDirectory not]) ifTrue:[
+        (n isReadable and:[n isRegularFile]) ifTrue:[
             ^ f.
         ]
     ].
@@ -7347,7 +7347,7 @@
                         "/
                         (passDone at:lineIndex) < 4 ifTrue:[
                             (Image isImageFileSuffix:(f suffix)) ifTrue:[
-                                f isDirectory ifFalse:[
+                                f isRegularFile ifTrue:[
                                     img := Image fromFile:(f pathName).
                                     img notNil ifTrue:[
                                         showingBigImagePreview value == true ifTrue:[