--- a/FileSelectionBox.st	Thu Oct 17 17:24:57 2002 +0200
+++ b/FileSelectionBox.st	Thu Oct 17 17:25:30 2002 +0200
@@ -346,7 +346,8 @@
     |string|
 
     string := super contents.
-    string isNil ifTrue:[
+    string size == 0 ifTrue:[
+        selectingDirectory ifFalse:[^ string].
         ^ selectionList directory pathName
     ].
     (string asFilename isAbsolute) ifTrue:[
@@ -753,5 +754,5 @@
 !FileSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.62 2001-11-14 08:27:03 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.63 2002-10-17 15:25:30 cg Exp $'
 ! !