--- a/FileSelectionBrowser.st	Fri Sep 25 16:59:27 1998 +0200
+++ b/FileSelectionBrowser.st	Fri Sep 25 17:56:19 1998 +0200
@@ -358,7 +358,10 @@
         "/ search backward from aFilename for the last readable dir.
         root := f.
         parent := root directory.
-        [parent exists and:[parent isDirectory and:[parent isReadable]]]
+        [parent ~= root
+         and:[parent exists 
+         and:[parent isDirectory 
+         and:[parent isReadable]]]]
         whileTrue:[
             root := parent.
             parent := root directory.