--- a/compiler/PPCompiledParser.st	Mon Apr 13 22:00:44 2015 +0100
+++ b/compiler/PPCompiledParser.st	Tue Apr 14 07:40:53 2015 +0100
@@ -19,12 +19,10 @@
 !PPCompiledParser class methodsFor:'as yet unclassified'!
 
 addConstant: value as: id
-        self constants at: id ifPresent: [ :ignored | 
-                ((self constants at: id) = value) ifFalse: [self error: 'ooups']].      
-        
-        self constants at: id put: value.
-
-    "Modified: / 21-11-2014 / 12:32:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+	self constants at: id ifPresent: [ 
+		((self constants at: id) = value) ifFalse: [self error: 'ooups']].	
+	
+	self constants at: id put: value.
 !
 
 addParser: aPPParser as: id