From f4c92552d4b27d6d4310e0a3538a7468831ff35b Mon Sep 17 00:00:00 2001
From: "Paul M. Rodriguez" <pmr@ruricolist.com>
Date: Sat, 6 Oct 2018 17:07:55 -0500
Subject: [PATCH] Avoid duplicate internal subsets.

---
 xml/xml-parse.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/xml/xml-parse.lisp b/xml/xml-parse.lisp
index b66bfb8..7756339 100644
--- a/xml/xml-parse.lisp
+++ b/xml/xml-parse.lisp
@@ -2617,7 +2617,9 @@
               (let ((xi2 (xstream-open-extid effective-extid)))
 		(with-zstream (zi2 :input-stack (list xi2))
 		  (ensure-dtd)
-                  (sax:start-internal-subset (handler *ctx*))
+                  ;; Avoid duplicate internal subsets.
+                  (unless (ignore-errors (have-internal-subset (handler *ctx*)))
+                    (sax:start-internal-subset (handler *ctx*)))
 		  (p/ext-subset zi2)
 		  (when (and fresh-dtd-p
 			     *cache-all-dtds*