--- a/tests/PPPredicateTest.st	Wed Nov 19 10:52:37 2014 +0000
+++ b/tests/PPPredicateTest.st	Mon Nov 24 00:09:23 2014 +0000
@@ -11,9 +11,7 @@
 !PPPredicateTest methodsFor:'private'!
 
 charactersDo: aBlock
-        0 to: 255 do: [ :index | aBlock value: (Character codePoint: index) ]
-
-    "Modified: / 03-11-2014 / 09:11:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+	1 to: 256 do: [ :index | aBlock value: (Character codePoint: index) ]
 ! !
 
 !PPPredicateTest methodsFor:'testing'!
@@ -324,14 +322,12 @@
 !
 
 parsedCharacterSet: aParser
-        | result |
-        result := String new writeStream.
-        self charactersDo: [ :char |
-                (aParser matches: char asString)
-                        ifTrue: [ result nextPut: char ] ].
-        ^ result contents
-
-    "Modified: / 03-11-2014 / 09:16:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+	| result |
+	result := String new writeStream.
+	self charactersDo: [ :char |
+		(aParser matches: (char asString))
+			ifTrue: [ result nextPut: char ] ].
+	^ result contents
 ! !
 
 !PPPredicateTest class methodsFor:'documentation'!