--- a/Method.st	Thu Feb 16 17:24:17 1995 +0100
+++ b/Method.st	Thu Feb 16 17:24:49 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Method.st,v 1.26 1995-02-15 10:27:30 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Method.st,v 1.27 1995-02-16 16:24:33 claus Exp $
 '!
 
 !Method class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Method.st,v 1.26 1995-02-15 10:27:30 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Method.st,v 1.27 1995-02-16 16:24:33 claus Exp $
 "
 !
 
@@ -159,6 +159,15 @@
     ^ 15  "cannot be easily changed"
 ! !
 
+!Method methodsFor:'queries'!
+
+isMethod
+    "return true, if the receiver is some kind of method;
+     true returned here - the method is redefined from Object."
+
+    ^ true
+! !
+
 !Method methodsFor:'accessing'!
 
 source