--- a/compiler/tests/extras/PPCCompositeParserTest.st	Mon Sep 07 08:03:02 2015 +0100
+++ b/compiler/tests/extras/PPCCompositeParserTest.st	Mon Sep 07 08:20:46 2015 +0100
@@ -118,14 +118,14 @@
 
     ^ (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>"
 !
 
-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>"
@@ -168,12 +168,12 @@
 
 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.
+    compiler := self compiler.
+    compiler options parserName: self compiledParserClassName.
     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.