--- a/compiler/PPCStarMessagePredicateNode.st	Mon Nov 24 00:09:23 2014 +0000
+++ b/compiler/PPCStarMessagePredicateNode.st	Wed Apr 15 11:28:09 2015 +0100
@@ -1,5 +1,7 @@
 "{ Package: 'stx:goodies/petitparser/compiler' }"
 
+"{ NameSpace: Smalltalk }"
+
 PPCStarNode subclass:#PPCStarMessagePredicateNode
 	instanceVariableNames:'message'
 	classVariableNames:''
@@ -9,10 +11,6 @@
 
 !PPCStarMessagePredicateNode methodsFor:'accessing'!
 
-acceptsEpsilon
-	^ true
-!
-
 firstCharSet
 	^ PPCharSetPredicate on: [:char | char perform: message ] 	
 !
@@ -48,23 +46,6 @@
 	compiler add: '].'.
 	compiler add: '^ retval asArray'.
  ^ compiler stopMethod.
-!
-
-compileWith_old: compiler effect: effect id: id
-	compiler startMethod: id.
-	compiler addVariable: 'retval'.
-	compiler add: 'retval := OrderedCollection new.'.	
-	compiler add: '[ context atEnd ] whileFalse: ['.
-	compiler indent.
-	compiler add: '(context uncheckedPeek ', message,')'.
-	compiler indent.
-	compiler add: ' ifFalse: [ ^ retval asArray ].'.
-	compiler dedent.
-	compiler add: ' retval add: context next'.
-	compiler dedent.
-	compiler add: '].'.
-	compiler add: '^ retval asArray'.
- ^ compiler stopMethod.
 ! !
 
 !PPCStarMessagePredicateNode methodsFor:'comparing'!