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