ObjectMemory.st
changeset 22539 b6e1ad0c9c27
parent 22449 8e4bad4c954a
child 22606 99879cc8d051
--- a/ObjectMemory.st	Thu Feb 08 17:40:50 2018 +0100
+++ b/ObjectMemory.st	Sun Feb 11 20:08:24 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
@@ -5872,11 +5874,14 @@
         "not reached"
     ].
 
-    Transcript
-        show:'Snapshot '; show:snapshotFilename baseName allBold;
-        show:' saved '; show:Timestamp now;
-        show:' in '; show:snapshotFilename asAbsoluteFilename directoryName;
-        showCR:'.'.
+    Error catch:[
+        "be immune against errors when Stderr has been closed"
+        Logger 
+            info:'Snapshot %1 saved %2 in %3."'
+            with:snapshotFilename baseName allBold
+            with:Timestamp now
+            with:snapshotFilename asAbsoluteFilename directoryName.
+    ].
 
     ^ ok
 
@@ -5886,6 +5891,8 @@
     "
 
     "Modified: / 04-08-2006 / 18:14:45 / cg"
+    "Modified: / 09-02-2018 / 19:14:08 / stefan"
+    "Modified (format): / 11-02-2018 / 20:07:55 / stefan"
 !
 
 suffixForSnapshot