--- a/compiler/PPCompiledParser.st	Fri Jul 31 14:07:31 2015 +0100
+++ b/compiler/PPCompiledParser.st	Mon Aug 17 12:56:02 2015 +0100
@@ -18,6 +18,10 @@
 
 !PPCompiledParser class methodsFor:'as yet unclassified'!
 
+acceptsLoggingOfCompilation
+    ^ true
+!
+
 addConstant: value as: id
     self constants at: id ifPresent: [ 
         ((self constants at: id) = value) ifFalse: [self error: 'ooups']].	
@@ -84,9 +88,10 @@
 initialize
     super initialize.
     
-    self class constants keysAndValuesDo: [ :key :value |
+"	self class constants keysAndValuesDo: [ :key :value |
         self instVarNamed: key put: value.
     ].
+"
 
     startSymbol := self class startSymbol.