--- a/PPLiteralObjectParser.st	Fri Oct 03 01:59:10 2014 +0100
+++ b/PPLiteralObjectParser.st	Fri Oct 03 02:33:08 2014 +0100
@@ -23,10 +23,10 @@
 
 !PPLiteralObjectParser methodsFor:'parsing'!
 
-parseOn: aStream
-	^ (aStream atEnd not and: [ literal = aStream uncheckedPeek ])
-		ifFalse: [ PPFailure message: message at: aStream position ]
-		ifTrue: [ aStream next ]
+parseOn: aPPContext
+	^ (aPPContext stream atEnd not and: [ literal = aPPContext stream uncheckedPeek ])
+		ifFalse: [ PPFailure message: message context: aPPContext ]
+		ifTrue: [ aPPContext stream next ]
 ! !
 
 !PPLiteralObjectParser class methodsFor:'documentation'!