--- a/compiler/PPCCompiler.st	Wed Nov 05 23:05:19 2014 +0000
+++ b/compiler/PPCCompiler.st	Thu Nov 06 01:41:10 2014 +0000
@@ -272,18 +272,18 @@
 !
 
 compileTree: compilerTree as: name parser: parser params: params
-	|  |
-	params do: [ :p | 
-		(p key = #guards) ifTrue: [ self guards: p value ].
-	].	
+        |  |
+        params do: [ :p | 
+                (p key = #guards) ifTrue: [ self guards: p value ].
+        ].      
 
 
-	((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[
-		| rPackageOrganizer |
-		rPackageOrganizer := Smalltalk at: #RPackageOrganizer.
-		rPackageOrganizer notNil ifTrue:[
-			rPackageOrganizer default registerPackageNamed: 'PetitCompiler-Generated'.
-		].
+        ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[
+                | rPackageOrganizer |
+                rPackageOrganizer := Smalltalk at: #RPackageOrganizer.
+                rPackageOrganizer notNil ifTrue:[
+                        rPackageOrganizer default registerPackageNamed: 'PetitCompiler-Generated'.
+                ].
 
       compiledParser := (Smalltalk at: name ifAbsent: [ nil ]).
       compiledParser ifNil: [ 
@@ -295,30 +295,32 @@
                 compiledParser := Smalltalk at: name.
       ] ifNotNil: [ 
                 self clean: compiledParser 
-      ].      		
-	] ifFalse: [ 
-		RPackageOrganizer default registerPackageNamed: 'PetitCompiler-Generated'.
-		compiledParser := (Smalltalk at: name ifAbsent: [ nil ]).
-		compiledParser ifNil: [ 
-							PPCompiledParser subclass: name.
-							compiledParser := Smalltalk at: name.
-							compiledParser category: 'PetitCompiler-Generated'							
-							] ifNotNil: [ 
-								self clean: compiledParser 
-							].	
-	].
-	compiledParser constants removeAll.
-	
+      ].                
+        ] ifFalse: [ 
+                RPackageOrganizer default registerPackageNamed: 'PetitCompiler-Generated'.
+                compiledParser := (Smalltalk at: name ifAbsent: [ nil ]).
+                compiledParser ifNil: [ 
+                                                        PPCompiledParser subclass: name.
+                                                        compiledParser := Smalltalk at: name.
+                                                        compiledParser category: 'PetitCompiler-Generated'                                                      
+                                                        ] ifNotNil: [ 
+                                                                self clean: compiledParser 
+                                                        ].      
+        ].
+        compiledParser constants removeAll.
+        
 
-	self startMethod: #start.
-	self add: '^ '.
-	self callOnLine: (compilerTree compileWith: self).
-	self stopMethod.
+        self startMethod: #start.
+        self add: '^ '.
+        self callOnLine: (compilerTree compileWith: self).
+        self stopMethod.
 
-	self installMethodsAndVariables: compiledParser.
+        self installVariablesAndMethods.
 
-	compiledParser referringParser: parser.
-	^ compiledParser
+        compiledParser referringParser: parser.
+        ^ compiledParser
+
+    "Modified: / 05-11-2014 / 23:17:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 copy: parser
@@ -332,9 +334,11 @@
 !
 
 installVariables: class
-	| string |
-	string := class constants keys inject: '' into: [:r :e | r, ' ', e  ].
-	PPCompiledParser subclass: class name instanceVariableNames: string classVariableNames: '' category: 'PetitCompiler-Generated'.
+        | string |
+        string := class constants keys inject: '' into: [:r :e | r, ' ', e  ].
+        PPCompiledParser subclass: class name instanceVariableNames: string classVariableNames: '' poolDictionaries:'' category: 'PetitCompiler-Generated'.
+
+    "Modified: / 26-10-2014 / 22:01:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 installVariablesAndMethods