diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 6e7d8984b2..b46645d433 100755
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -505,7 +505,7 @@ PRIVATE>
     V{ } accumulator-for ; inline
 
 : produce-as ( pred quot exemplar -- seq )
-    dup '[ _ accumulator-for [ while ] dip ] dip like ; inline
+    dup [ accumulator-for [ while ] dip ] curry dip like ; inline
 
 : produce ( pred quot -- seq )
     { } produce-as ; inline