--- a/devtools/XBGFParser.st	Thu Jan 10 14:22:51 2013 +0100
+++ b/devtools/XBGFParser.st	Thu Jan 10 14:22:58 2013 +0100
@@ -33,6 +33,10 @@
     ^productions at: id ifAbsentPut:[PPUnresolvedParser named: id]
 
     "Created: / 10-01-2013 / 12:03:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+productions
+    ^ productions
 ! !
 
 !XBGFParser methodsFor:'parsing'!
@@ -127,9 +131,9 @@
 !XBGFParser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/XBGFParser.st,v 1.1 2013-01-10 12:29:16 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/XBGFParser.st,v 1.2 2013-01-10 13:22:58 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/XBGFParser.st,v 1.1 2013-01-10 12:29:16 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/XBGFParser.st,v 1.2 2013-01-10 13:22:58 vrany Exp $'
 ! !