--- a/tests/PPTokenTest.st	Sat Nov 01 00:34:30 2014 +0000
+++ b/tests/PPTokenTest.st	Mon Nov 03 09:10:56 2014 +0000
@@ -89,25 +89,21 @@
 !PPTokenTest methodsFor:'testing-querying'!
 
 testColumn
-        | input parser result |
-        input := '1' , (String with: (Character codePoint: 13)) , '12' , (String with: (Character codePoint: 13) with: (Character codePoint: 10)) , '123'
-                , (String with: (Character codePoint: 10)) , '1234'.
-        parser := #any asParser token star.
-        result := parser parse: input.
-        result with: #(1 2 1 2 3 4 1 2 3 4 1 2 3 4) do: [ :token :line | self assert: token column equals: line ]
-
-    "Modified: / 03-10-2014 / 23:53:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+	| input parser result |
+	input := '1' , (String with: (Character codePoint: 13)) , '12' , (String with: (Character codePoint: 13) with: (Character codePoint: 10)) , '123'
+		, (String with: (Character codePoint: 10)) , '1234'.
+	parser := #any asParser token star.
+	result := parser parse: input.
+	result with: #(1 2 1 2 3 4 1 2 3 4 1 2 3 4) do: [ :token :line | self assert: token column equals: line ]
 !
 
 testLine
-        | input parser result |
-        input := '1' , (String with: (Character codePoint: 13)) , '12' , (String with:(Character codePoint: 13) with: (Character codePoint: 10)) , '123'
-                , (String with: (Character codePoint: 10)) , '1234'.
-        parser := #any asParser token star.
-        result := parser parse: input.
-        result with: #(1 1 2 2 2 2 3 3 3 3 4 4 4 4) do: [ :token :line | self assert: token line equals: line ]
-
-    "Modified: / 03-10-2014 / 23:54:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+	| input parser result |
+	input := '1' , (String with: (Character codePoint: 13)) , '12' , (String with: (Character codePoint: 13) with: (Character codePoint: 10)) , '123'
+		, (String with: (Character codePoint: 10)) , '1234'.
+	parser := #any asParser token star.
+	result := parser parse: input.
+	result with: #(1 1 2 2 2 2 3 3 3 3 4 4 4 4) do: [ :token :line | self assert: token line equals: line ]
 ! !
 
 !PPTokenTest methodsFor:'testing-values'!