--- a/tests/PPCompositeParserTest.st	Fri Oct 03 01:59:10 2014 +0100
+++ b/tests/PPCompositeParserTest.st	Fri Oct 03 02:33:08 2014 +0100
@@ -42,9 +42,12 @@
 !PPCompositeParserTest methodsFor:'parsing'!
 
 fail: aString rule: aSymbol 
-	| production |
+	| production context |
 	production := self parserInstanceFor: aSymbol.
-	result := production end parse: aString.
+	context := self context.
+	
+	result := production end parse: aString withContext: context.
+	
 	self
 		assert: result isPetitFailure
 		description: 'Able to parse ' , aString printString.
@@ -56,9 +59,11 @@
 !
 
 parse: aString rule: aSymbol
-	| production |
+	| production context |
 	production := self parserInstanceFor: aSymbol.
-	result := production end parse: aString.
+	context := self context.
+	
+	result := production end parse: aString withContext: context.
 	self
 		deny: result isPetitFailure
 		description: 'Unable to parse ' , aString printString.