--- 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