diff --git a/contrib/algebra/infix.factor b/contrib/algebra/infix.factor
index 18fd9249a5..a8fc5a73de 100644
--- a/contrib/algebra/infix.factor
+++ b/contrib/algebra/infix.factor
@@ -107,6 +107,7 @@ M: namestack-manip (eval-infix)
     over length [ f , [ \ cons , ] times ] make-list
     [ list>vector ] append -rot (eval-infix) append ;
 
+DEFER: fold-consts
 : (| f ; parsing
 : | reverse f ; parsing
 : |) reverse infix fold-consts eval-infix swons \ call swons ; parsing