# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 906738979 -7200
# Node ID 0b2b698bc4f3a6ebcee4ea79b2eb03b52997a78b
# Parent  b7bfaa2d6ecdc88e527aae0dc54159b0c0f6dae3
oops - avoid endless loop when alking dir-hierarchy up.

diff -r b7bfaa2d6ecd -r 0b2b698bc4f3 FileSelectionBrowser.st
--- 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.