diff --git a/basis/compiler/cfg/intrinsics/allot/allot.factor b/basis/compiler/cfg/intrinsics/allot/allot.factor
index 31a8a898bc..47f5be962e 100644
--- a/basis/compiler/cfg/intrinsics/allot/allot.factor
+++ b/basis/compiler/cfg/intrinsics/allot/allot.factor
@@ -78,5 +78,5 @@ IN: compiler.cfg.intrinsics.allot
         :> len
         0 ^^load-literal :> elt
         len emit-allot-byte-array :> reg
-        len reg elt byte-array store-initial-element
+        len cell align cell /i reg elt byte-array store-initial-element
     ] [ drop node emit-primitive ] if ;