diff --git a/src/HaskellWorks/Data/Json/Simd/Internal/Index/Standard.hs b/src/HaskellWorks/Data/Json/Simd/Internal/Index/Standard.hs
index 6a6bb06..ac5d49c 100644
--- a/src/HaskellWorks/Data/Json/Simd/Internal/Index/Standard.hs
+++ b/src/HaskellWorks/Data/Json/Simd/Internal/Index/Standard.hs
@@ -29,8 +29,8 @@ data WorkState = WorkState
 
 allocWorkBuffers :: Int -> IO WorkBuffers
 allocWorkBuffers n = do
-  fptr <- F.mallocForeignPtrBytes (3 * n)
-  let ptr = F.unsafeForeignPtrToPtr fptr
+  fptr <- F.mallocForeignPtrBytes (3 * n + 32)
+  let ptr = alignPtr (F.unsafeForeignPtrToPtr fptr) 32
   return WorkBuffers
     { workBuffersF = fptr
     , workBuffersP = ptr `F.plusPtr`  0