--- a/WorkspaceApplication.st	Tue Oct 18 18:39:16 2005 +0200
+++ b/WorkspaceApplication.st	Wed Oct 19 14:39:43 2005 +0200
@@ -954,6 +954,10 @@
     Workspace clearDoItHistory
 !
 
+defaultFileNameForSave
+    ^ self selectedWorkspace defaultFileNameForFileDialog ? super defaultFileNameForSave
+!
+
 doIt
     self selectedWorkspacesTextView doIt
 !
@@ -1438,5 +1442,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.102 2005-07-13 15:43:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.103 2005-10-19 12:39:43 cg Exp $'
 ! !