--- a/DialogBox.st	Mon May 19 11:05:24 2003 +0200
+++ b/DialogBox.st	Mon May 19 11:06:42 2003 +0200
@@ -2266,15 +2266,16 @@
     |box defaultDir defaultNm|
 
     UserPreferences current useNewFileDialog ifTrue:[
-        ^ FileDialog    requestFileName:titleString 
-                        default:defaultName 
-                        version:versionSymbol 
-                        ifFail:failBlock 
-                        pattern:pattern 
-                        fromDirectory:aDirectoryPath 
-                        whenBoxCreatedEvaluate:boxCreatedCallback.
+        ^ FileDialog    
+                requestFileName:titleString 
+                default:defaultName 
+                version:versionSymbol 
+                ifFail:failBlock 
+                pattern:pattern 
+                fromDirectory:aDirectoryPath 
+                whenBoxCreatedEvaluate:boxCreatedCallback.
     ].
-    defaultNm := defaultName.
+    defaultNm := defaultName asFilename name.
     defaultDir := aDirectoryPath.
     defaultDir isNil ifTrue:[
         defaultNm notNil ifTrue:[
@@ -2319,7 +2320,6 @@
         ^ name
     ].
     boxCreatedCallback notNil ifTrue:[boxCreatedCallback value:box].
-
     self showAndThenDestroyBox:box.
     box action:nil.
     ^ failBlock value
@@ -7777,7 +7777,7 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.215 2003-05-19 09:05:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.216 2003-05-19 09:06:42 cg Exp $'
 ! !
 
 DialogBox initialize!