diff --git a/tests/docbook-reader.docbook b/tests/docbook-reader.docbook
index 6aca2c087..1b195602d 100644
--- a/tests/docbook-reader.docbook
+++ b/tests/docbook-reader.docbook
@@ -848,7 +848,7 @@ These should not be escaped:  \$ \\ \> \[ \{
       <ulink url="/url/with_underscore">with_underscore</ulink>
     </para>
     <para>
-      Email link (<email>nobody@nowhere.net</email>)
+      <email>nobody@nowhere.net</email>
     </para>
     <para>
       <ulink url="">Empty</ulink>.
diff --git a/tests/docbook-reader.native b/tests/docbook-reader.native
index d9ff88599..aa459eff7 100644
--- a/tests/docbook-reader.native
+++ b/tests/docbook-reader.native
@@ -227,7 +227,7 @@ Pandoc (Meta {docTitle = [Str "Pandoc",Space,Str "Test",Space,Str "Suite"], docA
 ,Para [Link [Str "URL",Space,Str "and",Space,Str "title"] ("/url/","")]
 ,Para [Link [Str "URL",Space,Str "and",Space,Str "title"] ("/url/","")]
 ,Para [Link [Str "with_underscore"] ("/url/with_underscore","")]
-,Para [Link [Str "Email",Space,Str "link"] ("mailto:nobody@nowhere.net","")]
+,Para [Link [Code ("",[],[]) "nobody@nowhere.net"] ("mailto:nobody@nowhere.net","")]
 ,Para [Link [Str "Empty"] ("",""),Str "."]
 ,Header 2 [Str "Reference"]
 ,Para [Str "Foo",Space,Link [Str "bar"] ("/url/",""),Str "."]