--- a/ObjectMemory.st	Thu Oct 25 19:36:20 2001 +0200
+++ b/ObjectMemory.st	Thu Oct 25 19:38:20 2001 +0200
@@ -4930,6 +4930,11 @@
         aClass postSnapshot
     ].
     self changed:#finishedSnapshot.  "/ ST-80 compatibility
+
+"/ soon to come
+"/    ok ifFalse:[
+"/        SnapshotError raise.
+"/    ].
     ^ ok
 
     "
@@ -5051,6 +5056,6 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.192 2001-10-25 17:34:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.193 2001-10-25 17:38:20 cg Exp $'
 ! !
 ObjectMemory initialize!