diff --git a/src/Quasar/Wayland/Protocol/Core.hs b/src/Quasar/Wayland/Protocol/Core.hs
index 0445a6f52a88ae6850c2341d020d88d697d337f3..bd31f24cdab53ed4b2de2d8a1275f5a5f6f71926 100644
--- a/src/Quasar/Wayland/Protocol/Core.hs
+++ b/src/Quasar/Wayland/Protocol/Core.hs
@@ -779,7 +779,7 @@ putWaylandBlob blob = do
     -- Padding length
     pad = padding len
     putBlob = do
-      putWord32host (fromIntegral (len + 1))
+      putWord32host (fromIntegral len)
       putByteString blob
       putWord8 0
       replicateM_ pad (putWord8 0)