--- a/compiler/PPCUniversalConfiguration.st	Mon Aug 24 23:42:53 2015 +0100
+++ b/compiler/PPCUniversalConfiguration.st	Tue Aug 25 01:30:32 2015 +0100
@@ -3,7 +3,7 @@
 "{ NameSpace: Smalltalk }"
 
 PPCConfiguration subclass:#PPCUniversalConfiguration
-	instanceVariableNames:'clazz'
+	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
 	category:'PetitCompiler-Core'
@@ -13,22 +13,24 @@
 
 buildClass
     |  builder |
-    self assert: (clazz isKindOf: PPCClass).
+    self assert: (context parserClass isKindOf: PPCClass).
     
     builder := PPCClassBuilder new.
     
     builder compiledClassName: options parserName.
     builder compiledSuperclass: PPCompiledParser.
-    builder methodDictionary: clazz methodDictionary.
-    builder constants: clazz constants.
+    builder methodDictionary: context parserClass methodDictionary.
+    builder constants: context parserClass constants.
 
-    ^ builder compileClass.	
+    ^ builder compileClass.
+
+    "Modified: / 25-08-2015 / 00:04:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 initialize
     super initialize.
 
-    clazz := PPCClass new.
+    "Modified: / 25-08-2015 / 00:03:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 invokePhases
@@ -59,7 +61,7 @@
     
     rootMethod := self codeGenerator
         options: options;
-        clazz: clazz;
+        clazz: context parserClass;
         visit: ir.
     
     compiledParser := self buildClass.
@@ -67,5 +69,7 @@
     compiledParser := compiledParser new.
     
     ir := compiledParser.
+
+    "Modified: / 25-08-2015 / 00:03:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !