diff -r 527038bc8edf -r 694a247a12ba compiler/tests/extras/PPCCompositeParserTest.st
--- a/compiler/tests/extras/PPCCompositeParserTest.st	Thu Jul 30 17:31:18 2015 +0100
+++ b/compiler/tests/extras/PPCCompositeParserTest.st	Fri Jul 31 07:57:23 2015 +0100
@@ -30,13 +30,24 @@
 !PPCCompositeParserTest class methodsFor:'utilities'!
 
 generateTestsFor: baseTestClass
-    | compiledBaseTestClassName compiledBaseTestClass compiledUniversalTestClass compiledTokenizedTestClass |
+    | compiledBaseTestClassName |
 
     compiledBaseTestClassName := (baseTestClass name startsWith: 'PP') 
                             ifTrue:[ 'PPC' , (baseTestClass name copyFrom: 3 to: baseTestClass name size) ]
                             ifFalse:[ 'PPC' , baseTestClass name ].
     compiledBaseTestClassName := compiledBaseTestClassName asSymbol.
 
+    ^ self generateTestsFor: baseTestClass compiledBaseTestCaseName: compiledBaseTestClassName
+
+    "Created: / 30-07-2015 / 07:10:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 31-07-2015 / 07:27:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+generateTestsFor: baseTestClass compiledBaseTestCaseName: compiledBaseTestClassName
+    | compiledBaseTestClass compiledUniversalTestClass compiledTokenizedTestClass |
+
+
+
     compiledBaseTestClass := baseTestClass subclass:compiledBaseTestClassName
         instanceVariableNames:''
         classVariableNames:''
@@ -85,7 +96,7 @@
     ^ PPCConfiguration tokenizing'
     classified: 'accessing'.
 
-    "Created: / 30-07-2015 / 07:10:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 31-07-2015 / 07:26:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !PPCCompositeParserTest methodsFor:'accessing'!