diff --git a/src/Quasar/Wayland/Protocol/Core.hs b/src/Quasar/Wayland/Protocol/Core.hs
index 5ac5f818045e3a4eaa572f452dc01919ab5ae00c..eca993f6ebab7fa57d3f37d6833bf128d32e7a6d 100644
--- a/src/Quasar/Wayland/Protocol/Core.hs
+++ b/src/Quasar/Wayland/Protocol/Core.hs
@@ -552,7 +552,7 @@ getWaylandBlob = do
 putWaylandBlob :: BS.ByteString -> Put
 putWaylandBlob blob = do
   let size = BS.length blob
-  putWord32host (fromIntegral size)
+  putWord32host (fromIntegral (size + 1))
   putByteString blob
   putWord8 0
   replicateM_ ((4 - (size `mod` 4)) `mod` 4) (putWord8 0)