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