diff --git a/src/Preload/Render.hs b/src/Preload/Render.hs
index b7d0bd824..dbb8c3030 100644
--- a/src/Preload/Render.hs
+++ b/src/Preload/Render.hs
@@ -105,9 +105,9 @@ preloadRender = do
 
     putStrLn "Setup 2D shaders"
     bslist <- makeShaderVBO "dualTwoD/basic" [vert, frag] (toFloatVAs [4, 4])
-    aslist <- makeShaderVBO "dualTwoD/arc" [vert, frag] (toFloatVAs [4, 4, 3])
+    aslist <- makeShaderVBO "dualTwoD/arc" [vert, frag] (toFloatVAs [4, 4, 4])
     eslist <- makeShaderVBO "dualTwoD/ellipse" [vert, geom, frag] (toFloatVAs [4, 4])
-    cslist <- makeShaderVBO "picture/charArray" [vert, frag] (toFloatVAs [4, 4, 3])
+    cslist <- makeShaderVBO "picture/charArray" [vert, frag] (toFloatVAs [4, 4, 4])
     shadV <- MV.new 4
     zipWithM_
         (MV.write shadV)
diff --git a/src/Shader/Poke.hs b/src/Shader/Poke.hs
index 8bfbc974e..32d460b9b 100644
--- a/src/Shader/Poke.hs
+++ b/src/Shader/Poke.hs
@@ -501,8 +501,8 @@ pokeStride :: ShadNum -> Int
 {-# INLINE pokeStride #-}
 pokeStride PolyShad = 7 + 1
 --pokeStride TextShad = 11
-pokeStride TextShad = 10 + 1
-pokeStride ArcShad = 10 + 1
+pokeStride TextShad = 10 + 2
+pokeStride ArcShad = 10 + 2
 pokeStride EllShad = 7 + 1
 
 poke34 :: Ptr Float -> Point3 -> Point4 -> IO ()