diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs
index ac0e7610c..ca69a0fd4 100644
--- a/src/Text/Pandoc/Writers/EPUB.hs
+++ b/src/Text/Pandoc/Writers/EPUB.hs
@@ -260,8 +260,10 @@ writeEPUB opts doc@(Pandoc meta _) = do
                                                     else "no")] $ ()) :
                   map chapterRefNode chapterEntries)
           , unode "guide" $
-              unode "reference" !
-                [("type","toc"),("title",plainTitle),("href","nav.xhtml")] $ ()
+              [ unode "reference" !
+                [("type","toc"),("title",plainTitle),("href","nav.xhtml")] $ () ]
+              ++ [ unode "reference" !
+                [("type","cover"),("title","Cover"),("href","cover.xhtml")] $ () ]
           ]
   let contentsEntry = mkEntry "content.opf" contentsData