--- a/devtools/extensions.st	Fri Jan 11 10:57:49 2013 +0100
+++ b/devtools/extensions.st	Fri Jan 11 10:58:24 2013 +0100
@@ -165,6 +165,12 @@
     ^ aVisitor visitPPLiteralParser:self
 ! !
 
+!PPLiteralParser methodsFor:'accessing'!
+
+literal
+    ^ literal
+! !
+
 !PPLiteralSequenceParser methodsFor:'visiting'!
 
 acceptVisitor:aVisitor 
@@ -333,5 +339,5 @@
 !stx_goodies_petitparser_devtools class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/extensions.st,v 1.2 2013-01-10 13:25:17 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/extensions.st,v 1.3 2013-01-11 09:58:24 vrany Exp $'
 ! !
\ No newline at end of file