diff --git a/extra/peg/peg.factor b/extra/peg/peg.factor
index 22405c9cbf..8d5d1c1560 100755
--- a/extra/peg/peg.factor
+++ b/extra/peg/peg.factor
@@ -453,11 +453,7 @@ M: delay-parser (compile) ( parser -- quot )
   #! For efficiency we memoize the quotation.
   #! This way it is run only once and the 
   #! parser constructed once at run time.
-  [
-    quot>> % \ compile ,
-  ] [ ] make 
-  { } { "word" } <effect> memoize-quot 
-  [ % \ execute , ] [ ] make ;
+  quot>> '[ @ compile ] { } { "word" } <effect> memoize-quot '[ @ execute ] ; 
 
 TUPLE: box-parser quot ;