--- a/tests/PPExtensionTest.st	Fri Oct 03 02:45:16 2014 +0100
+++ b/tests/PPExtensionTest.st	Fri Oct 03 03:11:33 2014 +0100
@@ -71,12 +71,14 @@
 !
 
 testRange
-	| parser |
-	parser := $a - $c.
-	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'
+        | 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'
+
+    "Modified: / 03-10-2014 / 03:07:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 testSequence