--- a/PPToken.st	Fri Oct 03 03:11:33 2014 +0100
+++ b/PPToken.st	Sun Oct 05 00:05:20 2014 +0100
@@ -11,9 +11,15 @@
 !PPToken class methodsFor:'initialization'!
 
 initialize
-	"Platform independent newline sequence. LF: Unix, CR+LF: Windows, and CR: Apple."
+        "Platform independent newline sequence. LF: Unix, CR+LF: Windows, and CR: Apple."
+
+        | cr lf |
 
-	NewLineParser := (Character lf asParser) / (Character cr asParser , Character lf asParser optional)
+        cr := Character codePoint: 13.
+        lf := Character codePoint: 10.
+        NewLineParser := lf asParser / (cr asParser , lf asParser optional)
+
+    "Modified: / 04-10-2014 / 00:03:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !PPToken class methodsFor:'instance creation'!
@@ -127,13 +133,14 @@
 
 newline
         "Parser a platform independent newline sequence. LF: Unix, CR+LF: Windows, and CR: Apple."
-        |cr|
+        | cr lf |
 
-        cr := Smalltalk isSmalltalkX 
-                ifTrue:[Character return] 
-                ifFalse:[Character cr].
-        ^ (Character lf asParser)
-        / (cr asParser , Character lf asParser optional)
+        cr := Character codePoint: 13.
+        lf := Character codePoint: 10.
+        ^ lf asParser
+        / (cr asParser , lf asParser optional)
+
+    "Modified: / 04-10-2014 / 00:02:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !PPToken methodsFor:'querying'!