diff --git a/src/app/MetaBrush/Document/Serialise.hs b/src/app/MetaBrush/Document/Serialise.hs
index 3220be2..d400cbe 100644
--- a/src/app/MetaBrush/Document/Serialise.hs
+++ b/src/app/MetaBrush/Document/Serialise.hs
@@ -715,7 +715,7 @@ decodeStrokeHierarchy uniqueSupply = do
       groupContents <- JSON.Decoder.atKey "contents" ( decodeSequence $ decodeStrokeHierarchy uniqueSupply )
       pure ( StrokeGroup { groupName, groupVisible, groupContents } )
     "leaf"  -> do
-      strokeLeaf    <- JSON.Decoder.atKey "leaf"     ( decodeStroke uniqueSupply )
+      strokeLeaf    <- JSON.Decoder.atKey "stroke"   ( decodeStroke uniqueSupply )
       pure ( StrokeLeaf { strokeLeaf } )
     _ -> throwError ( JSON.ParseFailed $ "Unsupported stroke hierarchy type with tag " <> tag )