--- a/PPToken.st	Fri Oct 03 01:59:10 2014 +0100
+++ b/PPToken.st	Fri Oct 03 02:33:08 2014 +0100
@@ -11,14 +11,9 @@
 !PPToken class methodsFor:'initialization'!
 
 initialize
-    "Platform independent newline sequence. LF: Unix, CR+LF: Windows, and CR: Apple."
-
-    |cr|
+	"Platform independent newline sequence. LF: Unix, CR+LF: Windows, and CR: Apple."
 
-    cr := Smalltalk isSmalltalkX 
-            ifTrue:[Character return] 
-            ifFalse:[Character cr].
-    NewLineParser := (Character lf asParser) / (cr asParser , Character lf asParser optional)
+	NewLineParser := (Character lf asParser) / (Character cr asParser , Character lf asParser optional)
 ! !
 
 !PPToken class methodsFor:'instance creation'!