--- a/compiler/PPCNode.st	Mon Aug 17 12:13:16 2015 +0100
+++ b/compiler/PPCNode.st	Mon Aug 24 15:34:14 2015 +0100
@@ -102,6 +102,32 @@
     "Created: / 23-04-2015 / 15:39:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!PPCNode methodsFor:'accessing-fsa'!
+
+fsa
+    ^ self propertyAt: #fsa
+!
+
+fsa: aPEGFsa
+    self propertyAt: #fsa put: aPEGFsa
+!
+
+hasFsa
+    ^ self hasProperty: #fsa
+!
+
+hasNextFsa
+    ^ self hasProperty: #nextFsa
+!
+
+nextFsa
+    ^ self propertyAt: #nextFsa
+!
+
+nextFsa: aPEGFsa
+    self propertyAt: #nextFsa put: aPEGFsa
+! !
+
 !PPCNode methodsFor:'accessing-properties'!
 
 hasProperty: aKey