diff --git a/extra/peg/ebnf/ebnf.factor b/extra/peg/ebnf/ebnf.factor
index fea31ce94b..e55ee9d852 100644
--- a/extra/peg/ebnf/ebnf.factor
+++ b/extra/peg/ebnf/ebnf.factor
@@ -83,7 +83,7 @@ M: ebnf-rule (generate-parser) ( ast -- id )
 
 M: ebnf-action (generate-parser) ( ast -- id )
   ebnf-action-word search 1quotation 
-  last-parser get swap action generate-parser ;
+  last-parser get get-parser swap action store-parser ;
 
 M: vector (generate-parser) ( ast -- id )
   [ generate-parser ] map peek ;