diff --git a/extra/peg/peg.factor b/extra/peg/peg.factor
index 5ec934d994..6f2e5bce95 100755
--- a/extra/peg/peg.factor
+++ b/extra/peg/peg.factor
@@ -572,7 +572,7 @@ PRIVATE>
 : PEG:
   (:) [
     [
-        call compile 1quotation
+        call compile [ compiled-parse ] curry
         [ dup [ parse-result-ast ] [ "Parse failed" throw ] if ]
         append define
     ] with-compilation-unit