--- a/DialogBox.st	Tue Mar 09 17:00:51 1999 +0100
+++ b/DialogBox.st	Tue Mar 09 19:11:30 1999 +0100
@@ -1521,7 +1521,7 @@
                     action:[:fileName | enteredName := fileName].
 
     fN := aFileName.
-    dirF := aFileName asFilename.
+    dirF := (aFileName ? '.') asFilename.
     dirF name = dirF baseName ifFalse:[
         dir := dirF directoryName.
         fN := dirF baseName.
@@ -5924,6 +5924,6 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.131 1999-03-06 03:04:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.132 1999-03-09 18:11:30 cg Exp $'
 ! !
 DialogBox initialize!