--- a/tests/PPParserTest.st	Fri Oct 03 02:45:16 2014 +0100
+++ b/tests/PPParserTest.st	Fri Oct 03 03:11:33 2014 +0100
@@ -1452,18 +1452,20 @@
 !
 
 testParse
-	| parser result |
-	parser := $a asParser.
-	self assert: (parser parse: 'a') equals: $a.
-	self assert: (result := parser parse: 'b') isPetitFailure.
-	self assert: (result message includesSubstring: '$a').
-	self assert: (result message includesSubstring: 'expected').
-	self assert: result position equals: 0.
-	self assert: (parser parse: 'a' readStream) equals: $a.
-	self assert: (result := parser parse: 'b' readStream) isPetitFailure.
-	self assert: (result message includesSubstring: '$a').
-	self assert: (result message includesSubstring: 'expected').
-	self assert: result position equals: 0
+        | parser result |
+        parser := $a asParser.
+        self assert: (parser parse: 'a') equals: $a.
+        self assert: (result := parser parse: 'b') isPetitFailure.
+        self assert: (result message includesSubstring: '$a').
+        self assert: (result message includesSubstring: 'expected').
+        self assert: result position equals: 0.
+        self assert: (parser parse: 'a' readStream) equals: $a.
+        self assert: (result := parser parse: 'b' readStream) isPetitFailure.
+        self assert: (result message includesSubstring: '$a').
+        self assert: (result message includesSubstring: 'expected').
+        self assert: result position equals: 0
+
+    "Modified (format): / 03-10-2014 / 02:48:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 testParseOnError0