--- a/PPMemento.st	Fri Oct 03 01:59:10 2014 +0100
+++ b/PPMemento.st	Fri Oct 03 02:33:08 2014 +0100
@@ -1,7 +1,7 @@
 "{ Package: 'stx:goodies/petitparser' }"
 
 Object subclass:#PPMemento
-	instanceVariableNames:'result count position'
+	instanceVariableNames:'result count context'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'PetitParser-Core'
@@ -16,12 +16,12 @@
 
 !PPMemento methodsFor:'accessing'!
 
-position
-	^ position
+contextMemento
+	^ context
 !
 
-position: anInteger
-	position := anInteger
+contextMemento: aPPContextMemento
+	context  := aPPContextMemento 
 !
 
 result
@@ -64,3 +64,4 @@
 version_SVN
     ^ '§Id: PPMemento.st 2 2010-12-17 18:44:23Z vranyj1 §'
 ! !
+