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