diff --git a/extra/peg/peg.factor b/extra/peg/peg.factor
index 59a8b63c14..8298814017 100755
--- a/extra/peg/peg.factor
+++ b/extra/peg/peg.factor
@@ -306,9 +306,15 @@ MEMO: range ( min max -- parser )
 : seq ( seq -- parser )
   seq-parser construct-boa init-parser ;
 
+: seq* ( quot -- paser )
+  { } make seq ; inline 
+
 : choice ( seq -- parser )
   choice-parser construct-boa init-parser ;
 
+: choice* ( quot -- paser )
+  { } make choice ; inline 
+
 MEMO: repeat0 ( parser -- parser )
   repeat0-parser construct-boa init-parser ;