--- a/compiler/PPCStarCharSetPredicateNode.st	Wed Nov 19 10:52:37 2014 +0000
+++ b/compiler/PPCStarCharSetPredicateNode.st	Mon Nov 24 00:09:23 2014 +0000
@@ -1,6 +1,6 @@
 "{ Package: 'stx:goodies/petitparser/compiler' }"
 
-PPCNode subclass:#PPCStarCharSetPredicateNode
+PPCStarNode subclass:#PPCStarCharSetPredicateNode
 	instanceVariableNames:'predicate'
 	classVariableNames:''
 	poolDictionaries:''
@@ -56,5 +56,20 @@
 
 prefix
 	^ #starPredicate
+!
+
+rewrite: changeStatus
+	"Nothing TODO"
 ! !
 
+!PPCStarCharSetPredicateNode methodsFor:'comparing'!
+
+= anotherNode
+	super = anotherNode ifFalse: [ ^ false ].
+	^ predicate = anotherNode predicate.
+!
+
+hash
+	^ super hash bitXor: predicate hash
+! !
+