--- a/PPOptionalParser.st	Fri Oct 03 01:59:10 2014 +0100
+++ b/PPOptionalParser.st	Fri Oct 03 02:33:08 2014 +0100
@@ -8,17 +8,12 @@
 !
 
 
-!PPOptionalParser methodsFor:'*petitanalyzer-testing'!
-
-isNullable
-	^ true
-! !
 
 !PPOptionalParser methodsFor:'parsing'!
 
-parseOn: aStream
+parseOn: aPPContext
 	| element |
-	element := parser parseOn: aStream.
+	element := parser parseOn: aPPContext.
 	^ element isPetitFailure ifFalse: [ element ]
 ! !