--- a/MethodNode.st	Sun Sep 11 16:43:07 2011 +0200
+++ b/MethodNode.st	Mon Sep 12 02:19:13 2011 +0200
@@ -9,11 +9,10 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libcomp' }"
 
 ParseNode subclass:#MethodNode
-	instanceVariableNames:'selector arguments locals statements'
+	instanceVariableNames:'selector arguments locals statements encoder'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'System-Compiler ST-80-compatibility'
@@ -49,6 +48,7 @@
 "
 ! !
 
+
 !MethodNode methodsFor:'accessing'!
 
 arguments
@@ -67,6 +67,14 @@
     "Created: / 06-08-2006 / 03:04:18 / cg"
 !
 
+encoder
+    ^ encoder
+!
+
+encoder:something
+    encoder := something.
+!
+
 locals
     ^ locals
 !
@@ -171,5 +179,5 @@
 !MethodNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/MethodNode.st,v 1.11 2006-08-07 11:00:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MethodNode.st,v 1.12 2011-09-12 00:19:13 cg Exp $'
 ! !