--- 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
 !