diff --git a/pandoc.r5rs.scm b/pandoc.r5rs.scm
index 7c5295d..fc21586 100644
--- a/pandoc.r5rs.scm
+++ b/pandoc.r5rs.scm
@@ -48,7 +48,7 @@
                                        (vector-refs (contents) 0 1)))))
                    ,@(convert-many (cdr (contents-list)))))
             ((equal? type "Emph")
-             `(em ,@(convert-many (cdr (contents-list)))))
+             `(em ,@(convert-many (contents-list))))
             ((equal? type "Header")
              (let* ((level (car (contents-list)))
                     (h-tag (string->symbol