--- a/WorkspaceApplication.st	Fri Oct 31 15:26:51 2008 +0100
+++ b/WorkspaceApplication.st	Sat Nov 01 17:45:05 2008 +0100
@@ -1279,14 +1279,12 @@
     |ws|
 
     ws := self selectedWorkspace.
+    ws isScrollWrapper ifTrue:[ ws := ws scrolledView ].
     ws isTextView ifFalse:[
         "/ eval-ws
         ^ super defaultFileNameForSave
     ].
     ^ ws defaultFileNameForFileDialog ? super defaultFileNameForSave
-
-
-
 !
 
 defaultFileNameForSaveAll
@@ -2396,5 +2394,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.165 2008-10-29 12:06:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.166 2008-11-01 16:45:05 cg Exp $'
 ! !