--- a/PPToken.st	Tue Mar 04 21:09:46 2014 +0100
+++ b/PPToken.st	Tue Mar 04 21:10:06 2014 +0100
@@ -132,14 +132,13 @@
 
 newline
         "Parser a platform independent newline sequence. LF: Unix, CR+LF: Windows, and CR: Apple."
+        |cr|
 
-        Smalltalk isSmalltalkX ifTrue:[
-            ^ (Character lf asParser)
-            / (Character return asParser , Character lf asParser optional)
-        ] ifFalse:[
-            ^ (Character lf asParser)
-            / (Character cr asParser , Character lf asParser optional)
-        ]
+        cr := Smalltalk isSmalltalkX 
+                ifTrue:[Character return] 
+                ifFalse:[Character cr].
+        ^ (Character lf asParser)
+        / (cr asParser , Character lf asParser optional)
 ! !
 
 !PPToken methodsFor:'querying'!
@@ -175,15 +174,15 @@
 !PPToken class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPToken.st,v 1.5 2014-03-04 14:32:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPToken.st,v 1.6 2014-03-04 20:10:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPToken.st,v 1.5 2014-03-04 14:32:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPToken.st,v 1.6 2014-03-04 20:10:06 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: PPToken.st,v 1.5 2014-03-04 14:32:08 cg Exp $'
+    ^ '$Id: PPToken.st,v 1.6 2014-03-04 20:10:06 cg Exp $'
 ! !