From 378af1f38abb325d0e3b330187f9a29200702470 Mon Sep 17 00:00:00 2001
From: dlichteblau <dlichteblau>
Date: Sun, 14 Oct 2007 19:04:36 +0000
Subject: [PATCH] HAX integration buglet

	* xml/sax-handler.lisp (HAX:START-DOCUMENT): Write a doctype only
	if a system ID was given.
---
 xml/sax-handler.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/xml/sax-handler.lisp b/xml/sax-handler.lisp
index 1fb615f..f44e0d5 100644
--- a/xml/sax-handler.lisp
+++ b/xml/sax-handler.lisp
@@ -423,8 +423,9 @@ Setting this variable has no effect unless both
 
 (defmethod hax:start-document ((handler abstract-handler) name pubid sysid)
   (sax:start-document handler)
-  (sax:start-dtd handler name pubid sysid)
-  (sax:end-dtd handler name pubid sysid))
+  (when sysid
+    (sax:start-dtd handler name pubid sysid)
+    (sax:end-dtd handler)))
 
 (defmethod hax:start-element ((handler abstract-handler) name attributes)
   (setf name (runes:rod-downcase name))