--- a/SnapShotImage.st	Mon Jun 25 18:50:55 2001 +0200
+++ b/SnapShotImage.st	Mon Jun 25 18:51:08 2001 +0200
@@ -22,6 +22,16 @@
     [author:]
         Claus Gittinger
 "
+!
+
+examples
+"
+    |i m|
+
+    i := self for:'st.img'.
+    m := i memory.
+    m  fetchObjectAt:16r38000000
+"
 ! !
 
 !SnapShotImage class methodsFor:'instance creation'!
@@ -30,6 +40,12 @@
     ^ self new for:aFilename
 ! !
 
+!SnapShotImage methodsFor:'accessing'!
+
+memory
+    ^ memory
+! !
+
 !SnapShotImage methodsFor:'private'!
 
 fetchGlobals