--- a/compiler/tests/PPCompiledSmalltalkGrammarResource.st	Tue Apr 21 17:20:11 2015 +0100
+++ b/compiler/tests/PPCompiledSmalltalkGrammarResource.st	Thu Apr 30 23:43:14 2015 +0200
@@ -12,12 +12,11 @@
 !PPCompiledSmalltalkGrammarResource methodsFor:'as yet unclassified'!
 
 setUp
-        | time |
-        time := Time millisecondsToRun: [
-                PPSmalltalkGrammar new compile: #PPCompiledSmalltalkGrammar
-        ].
-        Transcript show: 'Grammar compiled in: ', time asString, 'ms'; cr.
-
-    "Modified: / 21-11-2014 / 12:33:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+	| time |
+	time := Time millisecondsToRun: [
+		PPSmalltalkGrammar new compileAs: #PPCompiledSmalltalkGrammar
+	].
+	Transcript crShow: 'Smalltalk Grammar compiled in: ', time asString, 'ms'.
+	
 ! !