--- a/compiler/tests/PPCOptimizeChoicesTest.st	Mon Sep 07 08:20:46 2015 +0100
+++ b/compiler/tests/PPCOptimizeChoicesTest.st	Mon Sep 07 11:53:38 2015 +0100
@@ -12,7 +12,7 @@
 !PPCOptimizeChoicesTest methodsFor:'as yet unclassified'!
 
 asPPCTree: parser
-    ^ parser compileUsingCompiler: compiler
+    ^ compiler compile: parser
 
     "Modified: / 07-09-2015 / 10:08:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -22,7 +22,7 @@
 
     super setUp.
     visitor := PPCOptimizeChoices new.
-    options := (PPCCompilationOptions default)
+    options := (PPCCompilationOptions new)
             profile:true;
             generate:false;
             tokenize:false;
@@ -31,7 +31,7 @@
     compiler passes:{ PPCCacheFirstFollowPass }.
     compiler options:options.
 
-    "Modified: / 04-09-2015 / 16:21:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 07-09-2015 / 10:22:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 testHasCommonPrefix