--- a/DeviceWorkstation.st	Fri Sep 29 11:28:16 2006 +0200
+++ b/DeviceWorkstation.st	Fri Sep 29 13:06:15 2006 +0200
@@ -4560,11 +4560,7 @@
         ] ifFalse:[
             (self == self class default and:[AllScreens size == 1]) ifTrue:[
                 'DeviceWorkstation [error]: I/O error for default display - writing crash.img and exiting' errorPrintCR.
-                [
-                    ObjectMemory snapShotOn:'crash.img'
-                ] on:SnapshotError do:[:ex|
-                    'DeviceWorkstation [error]: writing crash.img failed, exiting anyway' errorPrintCR.
-                ].
+                SnapshotError ignoreIn:[ ObjectMemory writeCrashImage ].
                 Smalltalk exit:1.
             ].
             'DeviceWorkstation [warning]: stop dispatch due to I/O error: ' errorPrint.
@@ -4583,6 +4579,8 @@
         self cleanupAfterDispatch.
         self close.
     ].
+
+    "Modified: / 29-09-2006 / 12:28:04 / cg"
 !
 
 startDispatch
@@ -7623,7 +7621,7 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.501 2006-08-08 13:59:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.502 2006-09-29 11:06:15 cg Exp $'
 ! !
 
 DeviceWorkstation initialize!