--- a/ObjMem.st	Tue Oct 08 23:02:26 1996 +0200
+++ b/ObjMem.st	Wed Oct 09 18:37:07 1996 +0200
@@ -3438,13 +3438,22 @@
 primSnapShotOn:aFileName
     "create a snapshot in the given file.
      Low level entry. Does not notify classes or write an entry to
-     the changes file. Also, no image backup is created. Returns true if
-     the snapshot worked, false if it failed for some reason.
+     the changes file. Also, no image backup is created. 
+     Returns true if the snapshot worked, false if it failed for some reason.
      This method should not be used in normal cases."
 
-    |ok|
-
-%{  /* STACK:32000 */
+    |ok oldImageName oldImageTime|
+
+    "
+     save the name and time with it ...
+    "
+    oldImageName := ImageName.
+    oldImageTime := ImageSaveTime.
+
+    ImageName := aFileName.
+    ImageSaveTime := AbsoluteTime now.
+
+%{  /* CALLSSTACK:32000 */
 
     OBJ __snapShotOn();
     OBJ funny = @symbol(funnySnapshotSymbol);
@@ -3455,6 +3464,10 @@
 	__UNBLOCKINTERRUPTS();
     }
 %}.
+
+    ImageName := oldImageName.
+    ImageSaveTime := oldImageTime.
+
     ^ ok
 !
 
@@ -3474,7 +3487,7 @@
      Return true if the snapshot worked, false if it failed for some reason.
      Notify dependents before and after the snapshot operation."
 
-    |ok oldImageName oldImageTime|
+    |ok|
 
     "
      keep a save version - just in case something
@@ -3498,20 +3511,8 @@
 	aClass preSnapshot
     ].
 
-    "
-     save the name with it ...
-    "
-    oldImageName := ImageName.
-    oldImageTime := ImageSaveTime.
-
-    ImageName := aFileName.
-    ImageSaveTime := AbsoluteTime now.
-
     ok := self primSnapShotOn:aFileName.
 
-    ImageName := oldImageName.
-    ImageSaveTime := oldImageTime.
-
     ok ifTrue:[
 	Class addChangeRecordForSnapshot:aFileName.
     ].
@@ -3534,6 +3535,6 @@
 !ObjectMemory  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.110 1996-10-02 11:32:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.111 1996-10-09 16:37:07 cg Exp $'
 ! !
 ObjectMemory initialize!