--- a/compiler/PPTokenizingCompiledParser.st	Fri Jul 24 15:06:54 2015 +0100
+++ b/compiler/PPTokenizingCompiledParser.st	Mon Aug 17 12:13:16 2015 +0100
@@ -9,6 +9,19 @@
 	category:'PetitCompiler-Parsers'
 !
 
+!PPTokenizingCompiledParser class methodsFor:'as yet unclassified'!
+
+acceptsLoggingOfCompilation
+    ^ self == PPTokenizingCompiledParser
+! !
+
+!PPTokenizingCompiledParser methodsFor:'initialization'!
+
+initialize
+    super initialize.
+    
+! !
+
 !PPTokenizingCompiledParser methodsFor:'tokenizing'!
 
 consume: tokenType
@@ -22,7 +35,7 @@
 !
 
 consumeWhitespace
-    self shouldBeImplemented 
+    "self shouldBeImplemented "
 !
 
 currentTokenType
@@ -57,7 +70,9 @@
     context noteFailure: failure.
     error := false.
     currentTokenType := nil.
-    scanner := PPCScanner new.
+    scanner := (self class classVarNamed: #scannerClass) new.
+    scanner stream: aPPContext.
+
 
     self consumeWhitespace.
     retval := self perform: startSymbol.