--- a/NewLauncher.st	Fri Nov 08 16:28:30 2002 +0100
+++ b/NewLauncher.st	Fri Nov 08 16:37:24 2002 +0100
@@ -1986,7 +1986,7 @@
             #argument: 'FileBrowser'
           )
          #(#MenuItem
-            #activeHelpKey: #fileSaveImageAs
+            #activeHelpKey: #fileSaveImage
             #enabled: #enableDangerousMenuItemsInRemoteLauncher
             #label: 'save image'
             #itemValue: #saveImage
@@ -3972,12 +3972,7 @@
 saveImage
     "save image"
 
-    self withCursor:Cursor write do:[
-        (ObjectMemory snapShotOn:ObjectMemory nameForSnapshot) ifFalse:[
-            self warn:(resources string:'Failed to save snapshot image (disk full or not writable)').
-        ]
-    ].
-
+    self saveImageAs:ObjectMemory nameForSnapshot.
 !
 
 saveImageAs
@@ -4143,5 +4138,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.276 2002-11-07 13:45:05 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.277 2002-11-08 15:37:24 cg Exp $'
 ! !