diff -r b2f2f15cef26 -r 7e08b31e0dae compiler/PPCAbstractCharacterNode.st
--- a/compiler/PPCAbstractCharacterNode.st	Wed Nov 19 10:52:37 2014 +0000
+++ b/compiler/PPCAbstractCharacterNode.st	Mon Nov 24 00:09:23 2014 +0000
@@ -36,6 +36,17 @@
 	^ PPCharSetPredicate on: [:e | e = character ]
 ! !
 
+!PPCAbstractCharacterNode methodsFor:'comparison'!
+
+= anotherNode
+	super = anotherNode ifFalse: [ ^ false ].
+	^ character = anotherNode character.
+!
+
+hash
+	^ super hash bitXor: character hash
+! !
+
 !PPCAbstractCharacterNode methodsFor:'compiling'!
 
 body: compiler