--- a/compiler/tests/extras/PPCSmalltalkGrammarTests.st	Mon Sep 07 08:20:46 2015 +0100
+++ b/compiler/tests/extras/PPCSmalltalkGrammarTests.st	Mon Sep 07 11:53:38 2015 +0100
@@ -6,7 +6,7 @@
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
-	category:'PetitCompiler-Extras-Tests-Smalltalk'
+	category:'PetitCompiler-Extras-Tests-Misc'
 !
 
 !PPCSmalltalkGrammarTests class methodsFor:'resources'!
@@ -96,10 +96,8 @@
 
     compiler := self compiler.
     compiler options parserName: self compiledParserClassName.
-    compiler options scannerName: self compiledScannerClassName.
-        
     time := Time millisecondsToRun: [
-        self petitParser compileUsingCompiler:compiler.
+        compiler compile: self petitParser.
     ].
     Transcript show: self petitParserClass name ; show:' compiled in: '; show: time asString; show: 'ms'; cr.