--- a/FileDialog.st	Mon May 17 23:50:03 2004 +0200
+++ b/FileDialog.st	Tue May 18 13:43:03 2004 +0200
@@ -344,8 +344,11 @@
         ^ failBlock value
     ].
     enteredFileName := enteredFileNameString asFilename.
+
+    (enteredFileName isDirectory and:[defaultName notEmptyOrNil]) ifTrue:[
+        enteredFileName := enteredFileName construct:defaultName.
+    ].
     enteredFileNameString := enteredFileName asString.
-
     (enteredFileName notNil 
     and:[enteredFileNameString notEmpty]) ifTrue:[
         FileSelectionBox lastFileSelectionDirectory:(enteredFileName directoryName).
@@ -381,7 +384,7 @@
         abort:nil
         version:nil
         ifFail:['none']
-        pattern:'*.conf'
+        pattern:'*'
         fromDirectory:Filename currentDirectory pathName
         whenBoxCreatedEvaluate:nil
         asLoadDialog:true
@@ -1471,5 +1474,5 @@
 !FileDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.57 2004-05-17 16:54:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.58 2004-05-18 11:43:03 penk Exp $'
 ! !