--- a/FileDialog.st	Sat Feb 15 13:47:55 2003 +0100
+++ b/FileDialog.st	Mon Feb 17 15:43:50 2003 +0100
@@ -441,6 +441,9 @@
     ] ifFalse:[
         defaultFile := locFilename asFilename asAbsoluteFilename.
     ].
+    defaultFile isNil ifTrue:[
+        defaultFile := defaultDir.
+    ].
 
     instance := self new.
     defaultDir notNil ifTrue:[instance directory:(defaultDir asFilename)].
@@ -1145,5 +1148,5 @@
 !FileDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.23 2003-02-11 10:26:01 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.24 2003-02-17 14:43:50 penk Exp $'
 ! !