--- a/NewLauncher.st	Mon Feb 23 11:39:45 2015 +0100
+++ b/NewLauncher.st	Mon Feb 23 12:42:50 2015 +0100
@@ -3212,6 +3212,7 @@
             activeHelpKey: windowsGrapWindow
             label: 'Select and Grab Window...'
             itemValue: viewHardcopy
+            labelImage: (ResourceRetriever ToolbarIconLibrary snapshot24x24Icon 'Select and Grab Window...')
           )
          (MenuItem
             activeHelpKey: windowsGrapWidget
@@ -5536,7 +5537,7 @@
     "save the current default changeset as a patch file,
      after asking for a file name"
 
-    |dir d changesFilename|
+    |dir d changesFilename currentChangeSet|
 
     (d := Filename homeDirectory construct:'.smalltalk') exists ifTrue:[
         d := d construct:'userPatches'.
@@ -5552,11 +5553,13 @@
          printStringFormat:'changes_%(year)-%(month)-%(day)__%h:%m:%s.chg'.
     OperatingSystem isMSWINDOWSlike ifTrue:[ changesFilename replaceAll:$: with:$_ ].
 
+    currentChangeSet := ChangeSet current.
     changesFilename := Dialog
                         requestFileName:(resources 
-                                            string:'Save Changes for %1 Selectors in %2 Classes As' 
-                                            with:ChangeSet current changeSelectors size
-                                            with:ChangeSet current changedClasses size)
+                                            string:'Save %1 Changes (for %2 Selectors in %3 Classes) As' 
+                                            with:currentChangeSet size
+                                            with:currentChangeSet changeSelectors size
+                                            with:currentChangeSet changedClasses size)
                         default:changesFilename
                         pattern:'*.chg'
                         fromDirectory:dir.
@@ -5731,14 +5734,14 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.539 2015-02-22 14:33:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.540 2015-02-23 11:42:50 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.539 2015-02-22 14:33:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.540 2015-02-23 11:42:50 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: NewLauncher.st,v 1.539 2015-02-22 14:33:12 cg Exp $'
+    ^ '$Id: NewLauncher.st,v 1.540 2015-02-23 11:42:50 cg Exp $'
 ! !