1 files changed, 1 insertions, 2 deletions

diff --git a/src/xml.c b/src/xml.c
index e32417724ce..a3f92395792 100644
--- a/src/xml.c
+++ b/src/xml.c
@@ -237,8 +237,7 @@ parse_region (Lisp_Object start, Lisp_Object end, Lisp_Object base_url,
         if (node != NULL)
           result = make_dom (node);
       } else
-        result = Fcons (intern ("top"),
-                        Fcons (Qnil, Fnreverse (Fcons (r, result))));
+        result = Fcons (Qtop, Fcons (Qnil, Fnreverse (Fcons (r, result))));
 
       xmlFreeDoc (doc);
     }