--- a/compiler/tests/PPCTokenizingTest.st	Fri Jul 24 19:42:09 2015 +0100
+++ b/compiler/tests/PPCTokenizingTest.st	Mon Jul 27 10:21:41 2015 +0100
@@ -22,11 +22,13 @@
 
 cleanClass
     | parserClass |
-    parserClass := (Smalltalk at: arguments name ifAbsent: [nil]).
+    parserClass := (Smalltalk at: arguments parserName ifAbsent: [nil]).
     parserClass notNil ifTrue:[ 
         self flag: 'uncomment'.
-"		parserClass removeFromSystem"
+"               parserClass removeFromSystem"
     ].
+
+    "Modified: / 24-07-2015 / 19:50:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 context