--- a/SnapShotImageMemory.st	Mon Feb 18 17:21:04 2002 +0100
+++ b/SnapShotImageMemory.st	Mon Feb 18 18:37:16 2002 +0100
@@ -30,7 +30,7 @@
 !
 
 SnapShotImageMemory::ImageObject variableSubclass:#ImageMethodObject
-	instanceVariableNames:'cachedPackage'
+	instanceVariableNames:'cachedPackage cachedMClass cachedSelector'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:SnapShotImageMemory
@@ -1355,6 +1355,13 @@
     ^ nil
 !
 
+mclass
+    cachedMClass isNil ifTrue:[
+        cachedMClass := super mclass.
+    ].
+    ^ cachedMClass
+!
+
 package
     |packageSlotOffset packagePtr packageRef package|
 
@@ -1377,6 +1384,13 @@
     ^ cachedPackage
 !
 
+selector
+    cachedSelector isNil ifTrue:[
+        self mclass methodDictionary keysAndValuesDo:[:sel :mthd | mthd == self ifTrue:[cachedSelector := sel]].
+    ].
+    ^ cachedSelector
+!
+
 source
     |sourcePosition sourcePositionPtr sourcePtr sourceRef source aStream junk|