--- a/compiler/tests/PPCDistinctScannerTest.st	Mon Sep 07 08:20:46 2015 +0100
+++ b/compiler/tests/PPCDistinctScannerTest.st	Mon Sep 07 11:53:38 2015 +0100
@@ -53,13 +53,15 @@
 !
 
 setUp
-    compiler := PPCCompiler tokenizing.
+    compiler := PPCCompiler newWithOptions: #( #tokenize: true ).
+
+    "Modified: / 07-09-2015 / 11:36:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 testConsumeToken
     | parser |
     parser := self fooToken, self overlappingToken.
-    parser compileUsingCompiler:compiler.
+    compiler compile: parser.
     scanner := (Smalltalk at: compiler context options scannerName) new.
 
     scanner stream: 'foobaz' asPetitStream.
@@ -75,7 +77,7 @@
 testConsumeToken2
     | parser |
     parser := self fooToken, self barToken.
-    parser compileUsingCompiler:compiler.
+    compiler compile: parser.
     scanner := (Smalltalk at: compiler context options scannerName) new.
 
     scanner stream: 'foobar' asPetitStream.
@@ -91,7 +93,7 @@
 testScan
     | parser |
     parser := self aToken.
-    parser compileUsingCompiler:compiler.
+    compiler compile: parser.
     
     scanner := (Smalltalk at: compiler context options scannerName) new.
 
@@ -108,7 +110,7 @@
 testScan2
     | parser |
     parser := self fooToken.
-    parser compileUsingCompiler:compiler.
+    compiler compile: parser.
     
     scanner := (Smalltalk at: compiler context options scannerName) new.
 
@@ -125,7 +127,7 @@
 testScan3
     | parser |
     parser := self fooToken.
-    parser compileUsingCompiler:compiler.
+    compiler compile: parser.
     
     scanner := (Smalltalk at: compiler context options scannerName) new.
 
@@ -142,7 +144,7 @@
 testScan4
     | parser |
     parser := self fooToken, self idToken.
-    parser compileUsingCompiler:compiler.
+    compiler compile: parser.
     
     scanner := (Smalltalk at: compiler context options scannerName) new.
 
@@ -165,7 +167,7 @@
 testSequence
     | parser result |
     parser := self fooTrimmingToken, self idTrimmingToken.
-    parser compileUsingCompiler:compiler.
+    compiler compile: parser.
     
     scanner := (Smalltalk at: compiler context options scannerName) new.
 
@@ -195,7 +197,7 @@
 testToken
     | parser |
     parser := self fooToken, self idTrimmingToken.
-    parser compileUsingCompiler:compiler.
+    compiler compile: parser.
     
     scanner := (Smalltalk at: compiler context options scannerName) new.
 
@@ -213,7 +215,7 @@
 testTrimmingScan
     | parser |
     parser := self fooTrimmingToken, self idTrimmingToken.
-    parser compileUsingCompiler:compiler.
+    compiler compile: parser.
     
     scanner := (Smalltalk at: compiler context options scannerName) new.
 
@@ -230,7 +232,7 @@
 testTrimmingToken
     | parser result |
     parser := self fooTrimmingToken, self idTrimmingToken.
-    parser compileUsingCompiler:compiler.
+    compiler compile: parser.
     
     scanner := (Smalltalk at: compiler context options scannerName) new.