# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1014053836 -3600
# Node ID 298232956ca87ada3e1752f7a8f04963918a46cc
# Parent  6d0cb201dc8a134fb488c861fab6aa1759f6e274
*** empty log message ***

diff -r 6d0cb201dc8a -r 298232956ca8 SnapShotImageMemory.st
--- 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|