--- a/compiler/PPCCompiler.st	Fri May 01 14:04:37 2015 +0200
+++ b/compiler/PPCCompiler.st	Sat May 02 06:29:04 2015 +0200
@@ -345,12 +345,12 @@
 !
 
 stopMethod
-	self cache: currentMethod methodName as: currentMethod.
-	
-	arguments profile ifTrue: [ Transcript crShow: currentMethod code ].
-	^ self pop.
+        self cache: currentMethod methodName as: currentMethod.
+        
+        arguments profile ifTrue: [ Transcript show: currentMethod code; cr. ].
+        ^ self pop.
 
-    "Modified: / 23-04-2015 / 18:36:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 01-05-2015 / 14:18:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 top

--- a/compiler/tests/PPCompiledExpressionGrammarResource.st	Fri May 01 14:04:37 2015 +0200
+++ b/compiler/tests/PPCompiledExpressionGrammarResource.st	Sat May 02 06:29:04 2015 +0200
@@ -9,14 +9,23 @@
 	category:'PetitCompiler-Tests-ExpressionGrammar'
 !
 
+
 !PPCompiledExpressionGrammarResource methodsFor:'as yet unclassified'!
 
 setUp
-	| time |
-	time := Time millisecondsToRun: [
-		PPExpressionGrammar new compileAs: #PPCompiledExpressionGrammar
-	].
-	Transcript crShow: 'Exprssion grammar compiled in: ', time asString, 'ms'.
-	
+        | time |
+        time := Time millisecondsToRun: [
+                PPExpressionGrammar new compileAs: #PPCompiledExpressionGrammar
+        ].
+        Transcript show: 'Exprssion grammar compiled in: '; show: time asString; show: 'ms'; cr.
+
+    "Modified: / 01-05-2015 / 14:40:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!PPCompiledExpressionGrammarResource class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+

--- a/compiler/tests/PPCompiledJavaResource.st	Fri May 01 14:04:37 2015 +0200
+++ b/compiler/tests/PPCompiledJavaResource.st	Sat May 02 06:29:04 2015 +0200
@@ -16,6 +16,6 @@
 	time := Time millisecondsToRun: [
 		PPJavaSyntax new compileAs: #PPCompiledJavaSyntax.
 	].
-	Transcript crShow: 'Grammar compiled in: ', time asString, 'ms'.
+	Transcript show: 'Grammar compiled in: ', time asString, 'ms'; cr.
 ! !
 

--- a/compiler/tests/PPCompiledSmalltalkGrammarResource.st	Fri May 01 14:04:37 2015 +0200
+++ b/compiler/tests/PPCompiledSmalltalkGrammarResource.st	Sat May 02 06:29:04 2015 +0200
@@ -16,7 +16,7 @@
 	time := Time millisecondsToRun: [
 		PPSmalltalkGrammar new compileAs: #PPCompiledSmalltalkGrammar
 	].
-	Transcript crShow: 'Smalltalk Grammar compiled in: ', time asString, 'ms'.
+	Transcript show: 'Smalltalk Grammar compiled in: ', time asString, 'ms'; cr.
 	
 ! !