--- a/FileApplicationNoteBook.st	Wed Oct 27 11:41:41 2010 +0200
+++ b/FileApplicationNoteBook.st	Wed Oct 27 11:42:15 2010 +0200
@@ -4925,10 +4925,10 @@
             ]
         ].
         answer := Dialog
-            requestFileName:(resources string:'Save contents in:') 
+            requestFileNameForSave:(resources string:'Save contents in:') 
             default:base 
             fromDirectory:defaultDir.
-        answer isEmpty ifTrue:[^ self].
+        answer isEmptyOrNil ifTrue:[^ self].
         fn := answer asFilename.
     ] ifFalse:[
         fn := self fileName
@@ -4955,6 +4955,8 @@
     self itemRemoved value:false.
     self modifiedChannel value:false.
     self notify:self fileName asString, ' saved'.
+
+    "Modified: / 27-10-2010 / 10:41:29 / cg"
 !
 
 searchForPattern:aContentsPattern ignoreCase:ign
@@ -6069,9 +6071,9 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.242 2010-09-11 11:08:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.243 2010-10-27 09:42:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.242 2010-09-11 11:08:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.243 2010-10-27 09:42:15 cg Exp $'
 ! !