--- a/compiler/PPCTokenNode.st	Wed Nov 19 10:52:37 2014 +0000
+++ b/compiler/PPCTokenNode.st	Mon Nov 24 00:09:23 2014 +0000
@@ -66,3 +66,14 @@
 	^ #token
 ! !
 
+!PPCTokenNode methodsFor:'comparing'!
+
+= anotherNode
+	super = anotherNode ifFalse: [ ^ false ].
+	^ tokenClass = anotherNode tokenClass.
+!
+
+hash
+	^ super hash bitXor: tokenClass hash
+! !
+