--- a/compiler/PPCNode.st	Tue Aug 18 22:46:10 2015 +0100
+++ b/compiler/PPCNode.st	Mon Aug 24 15:56:20 2015 +0100
@@ -103,6 +103,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