diff --git a/src/Text/Pandoc/Citeproc/Util.hs b/src/Text/Pandoc/Citeproc/Util.hs
index 791041bcd..ba9335dc5 100644
--- a/src/Text/Pandoc/Citeproc/Util.hs
+++ b/src/Text/Pandoc/Citeproc/Util.hs
@@ -48,6 +48,7 @@ toIETF "germanb"         = "de-DE"
 toIETF "ngerman"         = "de-DE"
 toIETF "greek"           = "el-GR"
 toIETF "polutonikogreek" = "el-GR"
+toIETF "polytonicgreek"  = "el-GR"
 toIETF "hebrew"          = "he-IL"
 toIETF "hungarian"       = "hu-HU"
 toIETF "icelandic"       = "is-IS"
diff --git a/src/Text/Pandoc/Readers/LaTeX/Lang.hs b/src/Text/Pandoc/Readers/LaTeX/Lang.hs
index 7ce3d3450..3bb84df48 100644
--- a/src/Text/Pandoc/Readers/LaTeX/Lang.hs
+++ b/src/Text/Pandoc/Readers/LaTeX/Lang.hs
@@ -226,6 +226,7 @@ babelLangToBCP47 s =
        "ngerman" -> Just $ Lang "de" Nothing (Just "DE") [] [] []
        "lowersorbian" -> Just $ Lang "dsb" Nothing Nothing [] [] []
        "uppersorbian" -> Just $ Lang "hsb" Nothing Nothing [] [] []
+       "polytonicgreek" -> Just $ Lang "el" Nothing Nothing ["polyton"] [] []
        "polutonikogreek" -> Just $ Lang "el" Nothing Nothing ["polyton"] [] []
        "slovene" -> Just $ simpleLang "sl"
        "australian" -> Just $ Lang "en" Nothing (Just "AU") [] [] []
diff --git a/src/Text/Pandoc/Writers/LaTeX/Lang.hs b/src/Text/Pandoc/Writers/LaTeX/Lang.hs
index 4b6187adb..e5e81d2fc 100644
--- a/src/Text/Pandoc/Writers/LaTeX/Lang.hs
+++ b/src/Text/Pandoc/Writers/LaTeX/Lang.hs
@@ -33,7 +33,7 @@ toBabel (Lang "de" _ _ vars _ _)
   | otherwise                           = Just "ngerman"
 toBabel (Lang "dsb" _ _ _ _ _)          = Just "lowersorbian"
 toBabel (Lang "el" _ _ vars _ _)
-  | "polyton" `elem` vars               = Just "polutonikogreek"
+  | "polyton" `elem` vars               = Just "polytonicgreek"
 toBabel (Lang "en" _ (Just "AU") _ _ _) = Just "australian"
 toBabel (Lang "en" _ (Just "CA") _ _ _) = Just "canadian"
 toBabel (Lang "en" _ (Just "GB") _ _ _) = Just "british"