--- a/PPFlattenParser.st	Fri Oct 03 01:59:10 2014 +0100
+++ b/PPFlattenParser.st	Fri Oct 03 02:33:08 2014 +0100
@@ -16,12 +16,12 @@
 
 !PPFlattenParser methodsFor:'parsing'!
 
-parseOn: aStream
+parseOn: aPPContext
 	| start element |
-	start := aStream position.
-	element := parser parseOn: aStream.
+	start := aPPContext position.
+	element := parser parseOn: aPPContext.
 	element isPetitFailure ifTrue: [ ^ element ].
-	^ self on: aStream collection start: start + 1 stop: aStream position value: element
+	^ self on: aPPContext stream collection start: start + 1 stop: aPPContext position value: element
 ! !
 
 !PPFlattenParser methodsFor:'private'!