diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index f99166f22..3af53408b 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -497,7 +497,7 @@ listItemToHtml opts bls
let checkbox = if checked
then checkbox' ! A.checked ""
else checkbox'
- checkbox' = H.input ! A.type_ "checkbox" ! A.disabled ""
+ checkbox' = H.input ! A.type_ "checkbox"
isContents <- inlineListToHtml opts is
bsContents <- blockListToHtml opts bs
return $ constr (checkbox >> isContents) >> bsContents
diff --git a/test/command/tasklist.md b/test/command/tasklist.md
index 70fe8e13e..65afe8a9c 100644
--- a/test/command/tasklist.md
+++ b/test/command/tasklist.md
@@ -6,8 +6,8 @@ tests adapted from
- [x] bar
^D
```
@@ -20,12 +20,11 @@ tests adapted from
- [ ] bim
^D