--- a/compiler/extensions.st	Fri May 22 18:08:30 2015 +0100
+++ b/compiler/extensions.st	Mon May 25 02:49:22 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/petitparser/compiler' }"!
 
 !Character methodsFor:'*petitcompiler'!
@@ -93,6 +95,17 @@
     ^ aPetitCompiler compileChoice: self
 ! !
 
+!PPCompositeParser methodsFor:'*petitcompiler'!
+
+asCompilerNode
+    ^ PPCForwardNode new
+        name: self name;
+        child: parser;
+        yourself
+
+    "Modified: / 22-05-2015 / 21:54:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !PPContext methodsFor:'*petitcompiler'!
 
 asCompiledParserContext
@@ -189,7 +202,9 @@
             child: parser;
             yourself
     ].
-    ^ super asCompilerNode 
+    ^ super asCompilerNode
+
+    "Modified: / 22-05-2015 / 21:53:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !PPDelegateParser methodsFor:'*petitcompiler'!