--- a/NewLauncher.st	Sun Oct 19 14:20:53 2014 +0200
+++ b/NewLauncher.st	Sun Oct 19 14:26:16 2014 +0200
@@ -4923,14 +4923,14 @@
 
     |dir d changesFilename|
 
-    dir := Filename currentDirectory.
-
     (d := Filename homeDirectory construct:'.smalltalk') exists ifTrue:[
         d := d construct:'userPatches'.
         d exists ifFalse:[
             d makeDirectory.
         ].
         dir := d.
+    ] ifFalse:[
+        dir := Filename currentDirectory.
     ].
 
     changesFilename := Timestamp now
@@ -4947,7 +4947,8 @@
                         fromDirectory:dir.
 
     changesFilename notEmptyOrNil ifTrue:[
-        self saveSessionChangesAs:changesFilename
+        self saveSessionChangesAs:changesFilename.
+        Transcript showCR:'session changes save in ',changesFilename asFilename pathName.
     ].
 !
 
@@ -5101,14 +5102,14 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.494 2014-10-19 12:20:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.495 2014-10-19 12:26:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.494 2014-10-19 12:20:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.495 2014-10-19 12:26:16 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: NewLauncher.st,v 1.494 2014-10-19 12:20:53 cg Exp $'
+    ^ '$Id: NewLauncher.st,v 1.495 2014-10-19 12:26:16 cg Exp $'
 ! !