compiler.cfg.intrinsics.allot: <byte-array> intrinsic was writing past the end of...

diff --git a/basis/compiler/cfg/intrinsics/allot/allot.factor b/basis/compiler/cfg/intrinsics/allot/allot.factor
index 31a8a898bc1fb07837e1a88425dda876e0f27210..47f5be962ee599d2436dcdec540425159a5de0ca 100644 (file)
--- 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 ;