--- a/analyzer/PPParserReplaceRule.st	Tue Mar 04 21:10:20 2014 +0100
+++ b/analyzer/PPParserReplaceRule.st	Tue Mar 04 21:12:46 2014 +0100
@@ -23,13 +23,19 @@
 	replaceParser := aParser
 ! !
 
+!PPParserReplaceRule methodsFor:'matching'!
+
+foundMatchFor:aParser
+    ^ replaceParser copyInContext: owner context
+! !
+
 !PPParserReplaceRule class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/analyzer/PPParserReplaceRule.st,v 1.1 2014-03-04 15:41:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/analyzer/PPParserReplaceRule.st,v 1.2 2014-03-04 20:12:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/analyzer/PPParserReplaceRule.st,v 1.1 2014-03-04 15:41:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/analyzer/PPParserReplaceRule.st,v 1.2 2014-03-04 20:12:46 cg Exp $'
 ! !