--- a/Method.st	Wed Jun 18 10:42:02 1997 +0200
+++ b/Method.st	Thu Jun 19 16:17:25 1997 +0200
@@ -2193,6 +2193,16 @@
 
 !
 
+homeMethod
+    "for common protocol with blocks: if the receiver is a method,
+     return the receiver; otherwise, if its a block, return its home
+     method."
+
+    ^ self
+
+    "Created: 19.6.1997 / 16:13:12 / cg"
+!
+
 isInvalid
     "return true, if this method is not executable due to
      a (re)-compilation error. Since invalidation is by patching the
@@ -2744,6 +2754,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.129 1997-04-18 14:29:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.130 1997-06-19 14:16:47 cg Exp $'
 ! !
 Method initialize!