# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1229565298 -3600
# Node ID ede256dd19a13e70a53981c5bbf86184264ded13
# Parent  5ef668d71314d0338518b589448f5289954cad84
changed #entryCompletion

diff -r 5ef668d71314 -r ede256dd19a1 FileSelectionBrowser.st
--- a/FileSelectionBrowser.st	Thu Dec 18 01:06:46 2008 +0100
+++ b/FileSelectionBrowser.st	Thu Dec 18 02:54:58 2008 +0100
@@ -549,7 +549,11 @@
     inputField := self directoryInputField.
 
     f := inputField contents.
-    dir := f asFilename directoryName.
+    f asFilename isRootDirectory ifTrue:[
+        dir := f.
+    ] ifFalse:[
+        dir := f asFilename directoryName.
+    ].
 
     completedDirectory := Filename 
         filenameCompletionFor:f