--- a/FileDialog.st	Tue Oct 01 17:17:30 2002 +0200
+++ b/FileDialog.st	Tue Oct 01 17:18:51 2002 +0200
@@ -195,7 +195,7 @@
                         whenBoxCreatedEvaluate:boxCreatedCallback.
 
     enteredFileNameString := instance result.
-    enteredFileNameString isNil ifTrue:[
+    (enteredFileNameString isNil or:[enteredFileNameString isEmpty]) ifTrue:[
         ^ failBlock value
     ].
     enteredFileName := enteredFileNameString asFilename.
@@ -1007,5 +1007,5 @@
 !FileDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.4 2002-10-01 08:00:06 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.5 2002-10-01 15:18:51 penk Exp $'
 ! !