diff --git a/src/QBar/Server.hs b/src/QBar/Server.hs
index 24ea3eb7f3c93b17ee9beb6a4d318e6f701723f3..88a1e7e4f13b0cb20edffbf88aa36608e464af47 100644
--- a/src/QBar/Server.hs
+++ b/src/QBar/Server.hs
@@ -56,7 +56,7 @@ instance ToJSON RenderBlock where
     where
       fullText'' = [ "full_text" .= fullText' ]
       shortText'' = fromMaybe (\s -> ["short_text".=s]) mempty shortText'
-      blockName'' = fromMaybe (\s -> ["block_name".=s]) mempty blockName'
+      blockName'' = fromMaybe (\s -> ["name".=s]) mempty blockName'
       pango'' = [ "markup" .= ("pango" :: T.Text) ]