# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1052935120 -7200
# Node ID b5bec24eeaaf2b01ac8597c293d68b50e26b9667
# Parent  30d20151ed81bb2d09ba5294411ef028f190d587
*** empty log message ***

diff -r 30d20151ed81 -r b5bec24eeaaf SnapShotImageMemory.st
--- a/SnapShotImageMemory.st	Wed May 14 13:09:04 2003 +0200
+++ b/SnapShotImageMemory.st	Wed May 14 19:58:40 2003 +0200
@@ -3993,6 +3993,11 @@
     ^ owner
 !
 
+owningClassOrYourself
+    self owningClass notNil ifTrue:[^ self topOwningClass].
+    ^ self
+!
+
 supportsMethodCategories
     ^ true
 !