--- a/compiler/tests/extras/PPCSmalltalkTests.st	Mon Sep 07 08:03:02 2015 +0100
+++ b/compiler/tests/extras/PPCSmalltalkTests.st	Mon Sep 07 08:20:46 2015 +0100
@@ -3,7 +3,7 @@
 "{ NameSpace: Smalltalk }"
 
 TestCase subclass:#PPCSmalltalkTests
-	instanceVariableNames:'configuration options result'
+	instanceVariableNames:'compiler options result'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'PetitCompiler-Extras-Tests-Smalltalk'
@@ -21,14 +21,14 @@
         profile: true;
         yourself.
         
-    configuration := PPCTokenizingConfiguration new
+    compiler := PPCTokenizingConfiguration new
         options: options;
         yourself.
 !
 
 testSmalltakToken
     | token1  |
-    token1 := 'a' asParser smalltalkToken compileWithConfiguration: configuration.
+    token1 := 'a' asParser smalltalkToken compileUsingCompiler:compiler.
     
     self assert: ((token1 parse: 'a') class == PPSmalltalkToken).
     self assert: (token1 parse: '"comment" a "another comment"') inputValue = 'a'
@@ -37,7 +37,7 @@
 testSmalltakToken2
     | parser compiled  |
     parser := 'a' asParser smalltalkToken, 'b' asParser smalltalkToken.
-    compiled := parser compileWithConfiguration: configuration.
+    compiled := parser compileUsingCompiler:compiler.
     
     self assert: compiled parse: 'ab'.
     self assert: compiled parse: '"comment" a "another comment" b '.