--- a/PPActionParser.st	Fri Oct 03 01:59:10 2014 +0100
+++ b/PPActionParser.st	Fri Oct 03 02:33:08 2014 +0100
@@ -14,11 +14,6 @@
 	^ (self on: aParser) setBlock: aBlock
 ! !
 
-!PPActionParser methodsFor:'*petitanalyzer-matching'!
-
-match: aParser inContext: aDictionary seen: anIdentitySet
-	^ (super match: aParser inContext: aDictionary seen: anIdentitySet) and: [ self block = aParser block ]
-! !
 
 !PPActionParser methodsFor:'accessing'!
 
@@ -36,9 +31,9 @@
 
 !PPActionParser methodsFor:'parsing'!
 
-parseOn: aStream
+parseOn: aPPContext
 	| element |
-	^ (element := parser parseOn: aStream) isPetitFailure
+	^ (element := parser parseOn: aPPContext) isPetitFailure
 		ifFalse: [ block value: element ]
 		ifTrue: [ element ]
 ! !