--- a/WorkspaceApplication.st	Wed Mar 17 12:50:37 2004 +0100
+++ b/WorkspaceApplication.st	Wed Mar 17 13:28:17 2004 +0100
@@ -940,6 +940,7 @@
             ws externalEncoding:encodingSymbolOrNil.
         ].
         ws contents:contents.
+        ws defaultFileNameForFileDialog:file pathName.
     ] on:StreamError do:[:ex|
         Dialog warn:(resources string:'Cannot open %1: %2' with:file asString with:ex description).
         ^ self
@@ -1334,5 +1335,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.82 2004-03-16 16:31:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.83 2004-03-17 12:28:17 cg Exp $'
 ! !