diff --git a/core/optimizer/allot/allot.factor b/core/optimizer/allot/allot.factor
index 6eae3248c2..eff2eafc9b 100644
--- a/core/optimizer/allot/allot.factor
+++ b/core/optimizer/allot/allot.factor
@@ -59,9 +59,9 @@ IN: optimizer.allot
 : <array>-quot ( n -- quot )
     [
         dup ,
-        [ nip (array) ] %
+        [ (array) ] %
         [ \ 2dup , , [ swap set-array-nth ] % ] each
-        \ nip ,
+        \ 2nip ,
     ] [ ] make ;
 
 : literal-<array>? ( #call -- ? )