--- a/PPOptionalParser.st	Tue Mar 04 15:33:03 2014 +0100
+++ b/PPOptionalParser.st	Tue Mar 04 15:33:10 2014 +0100
@@ -8,16 +8,23 @@
 !
 
 
+!PPOptionalParser methodsFor:'*petitanalyzer-testing'!
+
+isNullable
+	^ true
+! !
+
 !PPOptionalParser methodsFor:'parsing'!
 
 parseOn: aStream
 	| element |
 	element := parser parseOn: aStream.
-	^ element isPetitFailure ifFalse: [ ^ element ]
+	^ element isPetitFailure ifFalse: [ element ]
 ! !
 
 !PPOptionalParser class methodsFor:'documentation'!
 
 version_SVN
-    ^ '§Id: PPOptionalParser.st 4 2010-12-18 17:02:23Z kursjan §'
+    ^ '$Id: PPOptionalParser.st,v 1.4 2014-03-04 14:33:10 cg Exp $'
 ! !
+