--- a/extensions.st	Tue Mar 04 16:55:01 2014 +0100
+++ b/extensions.st	Tue Mar 04 16:56:58 2014 +0100
@@ -32,6 +32,18 @@
     "Created: / 19-12-2010 / 18:13:19 / Jan Kurs <kurs.jan@post.cz>"
 ! !
 
+!Collection methodsFor:'*petitparser-core-converting'!
+
+asChoiceParser
+	^ PPChoiceParser withAll: (self collect: [ :each | each asParser ])
+! !
+
+!Collection methodsFor:'*petitparser-core-converting'!
+
+asSequenceParser
+	^ PPSequenceParser withAll: (self collect: [ :each | each asParser ])
+! !
+
 !Interval methodsFor:'*petitparser-converting'!
 
 asParser
@@ -153,6 +165,6 @@
 !stx_goodies_petitparser class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/extensions.st,v 1.10 2014-03-04 15:53:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/extensions.st,v 1.11 2014-03-04 15:56:58 cg Exp $'
 ! !