diff --git a/pandoc.cabal b/pandoc.cabal
index c8035a960..2433313f1 100644
--- a/pandoc.cabal
+++ b/pandoc.cabal
@@ -143,7 +143,8 @@ data-files:
                  data/pptx/ppt/notesMasters/notesMaster1.xml
                  data/pptx/ppt/notesSlides/_rels/notesSlide1.xml.rels
                  data/pptx/ppt/notesSlides/notesSlide1.xml
-                 data/pptx/ppt/notesSlides/_rels/notesSlide1.xml.rels
+                 data/pptx/ppt/notesSlides/_rels/notesSlide2.xml.rels
+                 data/pptx/ppt/notesSlides/notesSlide2.xml
                  data/pptx/ppt/theme/theme2.xml
                  data/pptx/[Content_Types].xml
                   -- stylesheet for EPUB writer
diff --git a/src/Text/Pandoc/Writers/Powerpoint/Output.hs b/src/Text/Pandoc/Writers/Powerpoint/Output.hs
index 752c81857..9a9ede864 100644
--- a/src/Text/Pandoc/Writers/Powerpoint/Output.hs
+++ b/src/Text/Pandoc/Writers/Powerpoint/Output.hs
@@ -1268,8 +1268,6 @@ speakerNotesSlideNumber pgNum fieldId =
 
 slideToSpeakerNotesElement :: PandocMonad m => Slide -> P m (Maybe Element)
 slideToSpeakerNotesElement slide
-  | Slide _ _ mbNotes <- slide
-  , Nothing <- mbNotes = return Nothing
   | Slide _ _ mbNotes <- slide
   , Just (SpeakerNotes paras) <- mbNotes = do
       master <- getNotesMaster
@@ -1304,6 +1302,7 @@ slideToSpeakerNotesElement slide
             ]
             ]
           ]
+slideToSpeakerNotesElement _ = return Nothing
 
 -----------------------------------------------------------------------
 
@@ -1465,8 +1464,6 @@ slideToSpeakerNotesEntry slide = do
 
 slideToSpeakerNotesRelElement :: PandocMonad m => Slide -> P m (Maybe Element)
 slideToSpeakerNotesRelElement slide
-  | Slide _ _ mbNotes <- slide
-  , Nothing <- mbNotes = return Nothing
   | Slide _ _ mbNotes <- slide
   , Just _ <- mbNotes = do
       idNum <- slideNum slide
@@ -1482,6 +1479,7 @@ slideToSpeakerNotesRelElement slide
                                 , ("Target", "../notesMasters/notesMaster1.xml")
                                 ] ()
         ]
+slideToSpeakerNotesRelElement _ = return Nothing
 
 slideToSpeakerNotesRelEntry :: PandocMonad m => Slide -> P m (Maybe Entry)
 slideToSpeakerNotesRelEntry slide = do