diff -r 54b3bc9e3987 -r 20598d7ce9fa compiler/PPCStarMessagePredicateNode.st
--- a/compiler/PPCStarMessagePredicateNode.st	Tue Apr 21 17:20:11 2015 +0100
+++ b/compiler/PPCStarMessagePredicateNode.st	Thu Apr 30 23:43:14 2015 +0200
@@ -11,6 +11,10 @@
 
 !PPCStarMessagePredicateNode methodsFor:'accessing'!
 
+children
+	^ #()
+!
+
 firstCharSet
 	^ PPCharSetPredicate on: [:char | char perform: message ] 	
 !
@@ -27,25 +31,6 @@
 
 prefix
 	^ #starPredicate
-!
-
-rewrite: changeStatus
-	"Nothing TODO"
-! !
-
-!PPCStarMessagePredicateNode methodsFor:'as yet unclassified'!
-
-compileWith: compiler effect: effect id: id
-	compiler startMethod: id.
-	compiler addVariable: 'retval'.
-	compiler add: 'retval := OrderedCollection new.'.	
-	compiler add: '[ context peek ', message, ' ] whileTrue: ['.
-	compiler indent.
-	compiler add: ' retval add: context next'.
-	compiler dedent.
-	compiler add: '].'.
-	compiler add: '^ retval asArray'.
- ^ compiler stopMethod.
 ! !
 
 !PPCStarMessagePredicateNode methodsFor:'comparing'!
@@ -59,13 +44,9 @@
 	^ super hash bitXor: message hash
 ! !
 
-!PPCStarMessagePredicateNode methodsFor:'optimizing'!
+!PPCStarMessagePredicateNode methodsFor:'visiting'!
 
-asFast
-	^ PPCTokenStarMessagePredicateNode new
-		name: name;
-		message: message;
-		child: child;
-		yourself
+accept: visitor
+	^ visitor visitStarMessagePredicateNode: self
 ! !