--- a/PPLiteralSequenceParser.st	Fri Oct 03 01:59:10 2014 +0100
+++ b/PPLiteralSequenceParser.st	Fri Oct 03 02:33:08 2014 +0100
@@ -34,13 +34,13 @@
 
 !PPLiteralSequenceParser methodsFor:'parsing'!
 
-parseOn: aStream
-	| position result |
-	position := aStream position.
-	result := aStream next: size.
+parseOn: aPPContext
+	| memento result |
+	memento := aPPContext remember.
+	result := aPPContext next: size.
 	literal = result ifTrue: [ ^ result ].
-	aStream position: position.
-	^ PPFailure message: message at: aStream position
+	aPPContext restore: memento.
+	^ PPFailure message: message context: aPPContext
 ! !
 
 !PPLiteralSequenceParser class methodsFor:'documentation'!
@@ -56,3 +56,4 @@
 version_SVN
     ^ '§Id: PPLiteralSequenceParser.st 2 2010-12-17 18:44:23Z vranyj1 §'
 ! !
+