--- a/compiler/PPCompiledParser.st	Wed Nov 19 10:52:37 2014 +0000
+++ b/compiler/PPCompiledParser.st	Mon Nov 24 00:09:23 2014 +0000
@@ -17,10 +17,12 @@
 !PPCompiledParser class methodsFor:'as yet unclassified'!
 
 addConstant: value as: id
-	self constants at: id ifPresent: [ 
-		((self constants at: id) = value) ifFalse: [self error: 'ooups']].	
-	
-	self constants at: id put: value.
+        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>"
 !
 
 addParser: aPPParser as: id