--- a/compiler/PPCSequenceNode.st	Mon Jun 15 18:00:44 2015 +0100
+++ b/compiler/PPCSequenceNode.st	Mon Jun 15 19:13:49 2015 +0100
@@ -172,6 +172,14 @@
                     reject: [ :each | each isNullable ]) ] ]
 ! !
 
+!PPCSequenceNode methodsFor:'testing'!
+
+isSequenceNode
+    ^ true
+
+    "Created: / 15-06-2015 / 18:29:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !PPCSequenceNode methodsFor:'visiting'!
 
 accept: visitor