--- a/PPDelegateParser.st	Fri Oct 03 01:59:10 2014 +0100
+++ b/PPDelegateParser.st	Fri Oct 03 02:33:08 2014 +0100
@@ -14,12 +14,6 @@
 	^ self new setParser: aParser
 ! !
 
-!PPDelegateParser methodsFor:'*petitanalyzer-transforming'!
-
-replace: aParser with: anotherParser
-	super replace: aParser with: anotherParser.
-	parser == aParser ifTrue: [ parser := anotherParser ]
-! !
 
 !PPDelegateParser methodsFor:'accessing'!
 
@@ -35,8 +29,8 @@
 
 !PPDelegateParser methodsFor:'parsing'!
 
-parseOn: aStream
-	^ parser parseOn: aStream
+parseOn: aPPContext
+	^ parser parseOn: aPPContext
 ! !
 
 !PPDelegateParser class methodsFor:'documentation'!