diff -r 77cf8e710a8e -r dd353f15b0ef compiler/PPCompiledParser.st
--- a/compiler/PPCompiledParser.st	Sun Apr 19 22:25:38 2015 +0100
+++ b/compiler/PPCompiledParser.st	Sun Apr 19 22:28:48 2015 +0100
@@ -19,7 +19,7 @@
 !PPCompiledParser class methodsFor:'as yet unclassified'!
 
 addConstant: value as: id
-	self constants at: id ifPresent: [ 
+	self constants at: id ifPresent: [:ignored | 
 		((self constants at: id) = value) ifFalse: [self error: 'ooups']].	
 	
 	self constants at: id put: value.