--- a/tests/PPPredicateTest.st	Fri Oct 03 03:11:33 2014 +0100
+++ b/tests/PPPredicateTest.st	Sun Oct 05 00:05:20 2014 +0100
@@ -59,10 +59,12 @@
 !
 
 testCr
-	| parser |
-	parser := #cr asParser.
-	self assertCharacterSets: parser.
-	self assert: parser parse: (String with: Character cr) to: Character cr
+        | parser |
+        parser := #cr asParser.
+        self assertCharacterSets: parser.
+        self assert: parser parse: (String with: (Character codePoint: 13)) to: (Character codePoint: 13)
+
+    "Modified: / 04-10-2014 / 12:03:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 testDigit