diff --git a/src/Utils/Form.hs b/src/Utils/Form.hs
index b10f0e010..df055660d 100644
--- a/src/Utils/Form.hs
+++ b/src/Utils/Form.hs
@@ -265,6 +265,7 @@ combinedButtonField bs FieldSettings{..} = formToAForm $ do
   name <- maybe newFormIdent return fsName
   (ress, fvs) <- fmap unzip . for bs $ \b -> mopt (buttonField b) ("" { fsId = Just $ fvId <> "__" <> toPathPiece b
                                                                       , fsName = Just $ name <> "__" <> toPathPiece b
+                                                                      , fsAttrs
                                                                       }) Nothing
   return ( sequenceA ress
          , pure FieldView