1 files changed, 2 insertions, 1 deletions

diff --git a/src/xml.c b/src/xml.c
index 6d212b44059..a8a4d8122da 100644
--- a/src/xml.c
+++ b/src/xml.c
@@ -138,7 +138,8 @@ parse_region (Lisp_Object start, Lisp_Object end, Lisp_Object base_url, int html
       if (result == Qnil)
         result = r;
       else
-        result = Fnreverse (Fcons (r, result));
+        result = Fcons (intern ("top"),
+                        Fcons (Qnil, Fnreverse (Fcons (r, result))));
 
       xmlFreeDoc (doc);
       xmlCleanupParser ();