--- a/PPTrimmingParser.st	Fri Oct 03 01:59:10 2014 +0100
+++ b/PPTrimmingParser.st	Fri Oct 03 02:33:08 2014 +0100
@@ -33,16 +33,16 @@
 
 !PPTrimmingParser methodsFor:'parsing'!
 
-parseOn: aStream
-	| position element |
-	position := aStream position.
-	[ (trimmer parseOn: aStream) isPetitFailure ]
+parseOn: aPPContext
+	| memento element |
+	memento := aPPContext remember.
+	[ (trimmer parseOn: aPPContext) isPetitFailure ]
 		whileFalse.
-	element := parser parseOn: aStream.
+	element := parser parseOn: aPPContext.
 	element isPetitFailure ifTrue: [
-		aStream position: position.
+		aPPContext restore: memento.
 		^ element ].
-	[ (trimmer parseOn: aStream) isPetitFailure ]
+	[ (trimmer parseOn: aPPContext) isPetitFailure ]
 		whileFalse.
 	^ element
 ! !
@@ -60,3 +60,4 @@
 version_SVN
     ^ '§Id: PPTrimmingParser.st 2 2010-12-17 18:44:23Z vranyj1 §'
 ! !
+