diff --git a/src/Text/Pandoc/Writers/JATS.hs b/src/Text/Pandoc/Writers/JATS.hs
index 935ec7761aa4..28f2d5276e70 100644
--- a/src/Text/Pandoc/Writers/JATS.hs
+++ b/src/Text/Pandoc/Writers/JATS.hs
@@ -99,6 +99,7 @@ addCreditName val =
                case M.lookup creditId creditNames of
                  Nothing -> val
                  Just creditName -> MapVal $ resetField "credit-name" creditName ctx
+    _ -> val
 
 -- | Convert a @'Pandoc'@ document to JATS (Archiving and Interchange
 -- Tag Set.)