--- a/PPToken.st	Sat Nov 01 00:34:30 2014 +0000
+++ b/PPToken.st	Mon Nov 03 09:10:56 2014 +0000
@@ -11,15 +11,11 @@
 !PPToken class methodsFor:'initialization'!
 
 initialize
-        "Platform independent newline sequence. LF: Unix, CR+LF: Windows, and CR: Apple."
-
-        | cr lf |
-
-        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>"
+	"Platform independent newline sequence. LF: Unix, CR+LF: Windows, and CR: Apple."
+	| cr lf |
+	cr := Character codePoint: 13.
+	lf := Character codePoint: 10.
+	NewLineParser := lf asParser / (cr asParser , lf asParser optional)
 ! !
 
 !PPToken class methodsFor:'instance creation'!
@@ -45,6 +41,16 @@
 		value: anObject
 ! !
 
+!PPToken methodsFor:'*petitcompiler'!
+
+= anObject
+	^ self class = anObject class and: [ self inputValue = anObject inputValue ]
+!
+
+hash
+	^ self inputValue hash
+! !
+
 !PPToken methodsFor:'accessing'!
 
 collection
@@ -90,16 +96,6 @@
 	^ self inputValue
 ! !
 
-!PPToken methodsFor:'comparing'!
-
-= anObject
-	^ self class = anObject class and: [ self parsedValue = anObject parsedValue ]
-!
-
-hash
-	^ self parsedValue hash
-! !
-
 !PPToken methodsFor:'copying'!
 
 copyFrom: aStartInteger to: aStopInteger