--- a/PPToken.st	Wed Nov 19 10:52:37 2014 +0000
+++ b/PPToken.st	Mon Nov 24 00:09:23 2014 +0000
@@ -35,15 +35,6 @@
 		value: anObject
 ! !
 
-!PPToken methodsFor:'*petitcompiler'!
-
-= anObject
-	^ self class = anObject class and: [ self inputValue = anObject inputValue ]
-!
-
-hash
-	^ self inputValue hash
-! !
 
 !PPToken methodsFor:'accessing'!
 
@@ -90,6 +81,16 @@
 	^ 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