--- a/compiler/tests/PPCGuardTest.st	Wed Nov 05 23:05:19 2014 +0000
+++ b/compiler/tests/PPCGuardTest.st	Thu Nov 06 01:41:10 2014 +0000
@@ -34,21 +34,25 @@
 !
 
 testCompiling3
-	guard := PPCGuard new initializeFor: ($a asParser, (#letter asParser / #digit asParser)) asCompilerTree.
-	guard id: #foo.
-	guard compileGuard: compiler.
-	
-	self assert: compiler lines size = 1.
-	self assert: compiler lines first = ('(context peek = ', $a printString ,')').
+        guard := PPCGuard new initializeFor: ($a asParser, (#letter asParser / #digit asParser)) asCompilerTree.
+        guard id: #foo.
+        guard compileGuard: compiler.
+        
+        self assert: compiler lines size = 1.
+        self assert: compiler lines first = ('(context peek = ', $a storeString ,')').
+
+    "Modified: / 06-11-2014 / 00:47:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 testCompiling4
-	guard := PPCGuard new initializeFor: ('foo' asParser / 'foobar' asParser) asCompilerTree.
-	guard id: #foo.
-	guard compileGuard: compiler.
-	
-	self assert: compiler lines size = 1.
-	self assert: compiler lines first = ('(context peek = ', $f printString ,')').
+        guard := PPCGuard new initializeFor: ('foo' asParser / 'foobar' asParser) asCompilerTree.
+        guard id: #foo.
+        guard compileGuard: compiler.
+        
+        self assert: compiler lines size = 1.
+        self assert: compiler lines first = ('(context peek = ', $f storeString ,')').
+
+    "Modified: / 06-11-2014 / 00:47:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 testMakesSense