diff --git a/Bibproc/Init.hs b/Bibproc/Init.hs
index e735b80..dc99594 100644
--- a/Bibproc/Init.hs
+++ b/Bibproc/Init.hs
@@ -32,7 +32,7 @@ myinit = do
     return (style, refs)
 
 wrapPandoc :: Block -> Pandoc
-wrapPandoc blk = Pandoc (Meta [] [] []) [blk]
+wrapPandoc blk = Pandoc nullMeta [blk]
 
 toHtml :: Block -> String
 toHtml = writeHtmlString def . wrapPandoc
diff --git a/bibproc.cabal b/bibproc.cabal
index e54a29f..4a2fd5e 100644
--- a/bibproc.cabal
+++ b/bibproc.cabal
@@ -17,7 +17,7 @@ Executable bib2html
   Build-depends:
     base >= 4 && < 5,
     citeproc-hs > 0.3,
-    pandoc,
+    pandoc == 1.12.*,
     directory,
     filepath,
     parsec,
@@ -31,7 +31,7 @@ Executable bib2sort
   Build-depends:
     base >= 4 && < 5,
     citeproc-hs > 0.3,
-    pandoc,
+    pandoc == 1.12.*,
     directory,
     filepath,
     split,
@@ -46,7 +46,7 @@ Executable bib2html_test
   Build-depends:
     base >= 4 && < 5,
     citeproc-hs > 0.3,
-    pandoc,
+    pandoc == 1.12.*,
     directory,
     filepath,
     parsec,
diff --git a/test/apa-dragonfly.csl b/test/apa-dragonfly.csl
index 9bffca6..c380cdc 100644
--- a/test/apa-dragonfly.csl
+++ b/test/apa-dragonfly.csl
@@ -179,11 +179,6 @@
 	</group>
       </else-if>
       <else>
-	<choose>
-	  <if variable="event" match="none">
-	    <text variable="genre" suffix=", "/>
-	  </if>
-	</choose>
 	<group delimiter=": ">
 	  <text variable="publisher-place"/>
 	  <text variable="publisher"/>
@@ -340,4 +335,4 @@
       <text macro="access" prefix=". "/>
     </layout>
   </bibliography>
-</style>
\ No newline at end of file
+</style>