--- a/tests/PPExtensionTest.st	Sat Nov 01 00:34:30 2014 +0000
+++ b/tests/PPExtensionTest.st	Mon Nov 03 09:10:56 2014 +0000
@@ -71,14 +71,12 @@
 !
 
 testRange
-        | parser |
-        parser := (Interval from: $a to: $c) asParser.
-        self assert: parser parse: 'a' to: $a.
-        self assert: parser parse: 'b' to: $b.
-        self assert: parser parse: 'c' to: $c.
-        self assert: parser fail: 'd'
-
-    "Modified: / 05-10-2014 / 00:02:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+	| parser |
+	parser := ($a to: $c) asParser.
+	self assert: parser parse: 'a' to: $a.
+	self assert: parser parse: 'b' to: $b.
+	self assert: parser parse: 'c' to: $c.
+	self assert: parser fail: 'd'
 !
 
 testSequence