--- a/ObjectMemory.st	Wed Jan 31 02:58:41 1996 +0100
+++ b/ObjectMemory.st	Thu Feb 01 20:43:35 1996 +0100
@@ -855,9 +855,18 @@
 !
 
 snapshotID
+    "return the internal snapshotID number.
+     This is incremented when an image is restarted, and
+     stored with the image.
+     Not for normal users, this is used by the VM to invalidate
+     caches which are stored with the image"
+
 %{  /* NOCONTEXT */
     RETURN ( __MKSMALLINT( __snapshotID() ));
 %}
+    "
+     ObjectMemory snapshotID     
+    "
 !
 
 incrementSnapshotID
@@ -3237,6 +3246,6 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.88 1996-01-17 18:35:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.89 1996-02-01 19:43:35 cg Exp $'
 ! !
 ObjectMemory initialize!