--- a/SnapShotImageMemory.st	Fri Jul 30 17:27:27 2004 +0200
+++ b/SnapShotImageMemory.st	Fri Sep 03 16:25:38 2004 +0200
@@ -1448,6 +1448,13 @@
 
 isMethod
     ^ true
+!
+
+previousVersionCode
+    "return the receivers previous versions source code"
+
+    "there is no previous version"
+    ^ nil
 ! !
 
 !SnapShotImageMemory::ImageClassObject methodsFor:'accessing - slots'!