--- a/PPFailingParser.st	Fri Oct 03 01:59:10 2014 +0100
+++ b/PPFailingParser.st	Fri Oct 03 02:33:08 2014 +0100
@@ -14,11 +14,6 @@
 	^ self new setMessage: aString
 ! !
 
-!PPFailingParser methodsFor:'*petitanalyzer-matching'!
-
-match: aParser inContext: aDictionary seen: anIdentitySet
-	^ (super match: aParser inContext: aDictionary seen: anIdentitySet) and: [ self message = aParser message ]
-! !
 
 !PPFailingParser methodsFor:'accessing'!
 
@@ -34,10 +29,10 @@
 	message := aString
 ! !
 
-!PPFailingParser methodsFor:'parsing'!
+!PPFailingParser methodsFor:'pp-context'!
 
-parseOn: aStream
-	^ PPFailure message: message at: aStream position
+parseOn: aPPContext
+	^ PPFailure message: message context: aPPContext
 ! !
 
 !PPFailingParser methodsFor:'printing'!