--- a/MethodNode.st	Mon Mar 24 13:12:49 2014 +0100
+++ b/MethodNode.st	Mon Mar 24 13:12:59 2014 +0100
@@ -48,7 +48,6 @@
 "
 ! !
 
-
 !MethodNode methodsFor:'accessing'!
 
 arguments
@@ -176,9 +175,15 @@
     "Modified: / 06-08-2006 / 15:12:15 / cg"
 ! !
 
+!MethodNode methodsFor:'testing'!
+
+isMethodNode
+    ^ true
+! !
+
 !MethodNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/MethodNode.st,v 1.13 2013-03-18 13:38:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MethodNode.st,v 1.14 2014-03-24 12:12:59 stefan Exp $'
 ! !