--- a/PPPredicateObjectParser.st	Sat Dec 01 15:29:07 2012 +0100
+++ b/PPPredicateObjectParser.st	Sat Dec 01 15:29:54 2012 +0100
@@ -37,7 +37,10 @@
 !
 
 cr
-	^ self char: Character cr message: 'carriage return expected'
+        Smalltalk isSmalltalkX ifTrue:[
+            ^ self char: Character return message: 'carriage return expected'
+        ].
+        ^ self char: Character cr message: 'carriage return expected'
 !
 
 digit
@@ -66,7 +69,10 @@
 !
 
 newline
-	^ self chars: (String with: Character cr with: Character lf) message: 'newline expected'
+        Smalltalk isSmalltalkX ifTrue:[
+            ^ self chars: (String with: Character return with: Character lf) message: 'newline expected'
+        ].
+        ^ self chars: (String with: Character cr with: Character lf) message: 'newline expected'
 !
 
 punctuation
@@ -155,11 +161,11 @@
 !PPPredicateObjectParser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateObjectParser.st,v 1.3 2012-05-04 22:05:48 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateObjectParser.st,v 1.4 2012-12-01 14:29:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateObjectParser.st,v 1.3 2012-05-04 22:05:48 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateObjectParser.st,v 1.4 2012-12-01 14:29:54 cg Exp $'
 !
 
 version_SVN