--- a/PPChoiceParser.st	Fri Oct 03 01:59:10 2014 +0100
+++ b/PPChoiceParser.st	Fri Oct 03 02:33:08 2014 +0100
@@ -16,13 +16,13 @@
 
 !PPChoiceParser methodsFor:'parsing'!
 
-parseOn: aStream
+parseOn: aPPContext
 	"This is optimized code that avoids unnecessary block activations, do not change. When all choices fail, the last failure is answered."
 
 	| element |
 	1 to: parsers size do: [ :index |
 		element := (parsers at: index)
-			parseOn: aStream.
+			parseOn: aPPContext.
 		element isPetitFailure
 			ifFalse: [ ^ element ] ].
 	^ element
@@ -41,3 +41,4 @@
 version_SVN
     ^ '§Id: PPChoiceParser.st 2 2010-12-17 18:44:23Z vranyj1 §'
 ! !
+