diff -r 548996aca274 -r fb212e14d1f4 compiler/tests/extras/PPCAbstractParserTest.st
--- a/compiler/tests/extras/PPCAbstractParserTest.st	Mon Sep 07 08:03:02 2015 +0100
+++ b/compiler/tests/extras/PPCAbstractParserTest.st	Mon Sep 07 08:20:46 2015 +0100
@@ -42,7 +42,7 @@
 
     ^ (self petitParserClass name , 'C_' , 
             "This is bit hacky!!"
-            ((self compilerConfiguration isKindOf: PPCTokenizingConfiguration) ifTrue:[ 'Tokenizing' ] ifFalse:[ 'Universal' ])) asSymbol
+            (("This is bit hacky!!" self compiler isKindOf: PPCTokenizingConfiguration) ifTrue:[ 'Tokenizing' ] ifFalse:[ 'Universal' ])) asSymbol
 
     "Created: / 29-07-2015 / 16:54:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -54,9 +54,9 @@
     "Created: / 29-07-2015 / 16:54:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-compilerConfiguration
-    "Return configuration to use when compiling parser (as instance of PPCConfiguration)"
-
+compiler
+    "Return compiler to use when compiling parser (as instance of PPCConfiguration)"
+    
     ^ self subclassResponsibility
 
     "Created: / 29-07-2015 / 16:53:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -99,13 +99,13 @@
 
 setUpBefore
     "Called before any of my tests is run (when resources are set up)"
-    | time configuration |
+    | time compiler |
 
-    configuration := self compilerConfiguration.
-    configuration options parserName: self compiledParserClassName.
-    configuration options scannerName: self compiledScannerClassName.
+    compiler := self compiler.
+    compiler options parserName: self compiledParserClassName.
+    compiler options scannerName: self compiledScannerClassName.
     time := Time millisecondsToRun: [
-        self petitParser compileWithConfiguration: configuration.
+        self petitParser compileUsingCompiler:compiler.
     ].
     Transcript show: self petitParserClass name ; show:' compiled in: '; show: time asString; show: 'ms'; cr.