From 401d6e4e5d82ef880a02aed1f9226aa6dbc565c8 Mon Sep 17 00:00:00 2001
From: David Lichteblau <david@lichteblau.com>
Date: Wed, 11 Mar 2009 16:41:09 +0100
Subject: [PATCH] fixed type of sysid in klacks:serialize-event

---
 klacks/klacks.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/klacks/klacks.lisp b/klacks/klacks.lisp
index 262268b..6e95da4 100644
--- a/klacks/klacks.lisp
+++ b/klacks/klacks.lisp
@@ -106,7 +106,7 @@
 	(:comment
 	  (sax:comment handler a))
 	(:dtd
-	  (sax:start-dtd handler a b c)
+	  (sax:start-dtd handler a b (and c (uri-rod c)))
 	  (when (slot-boundp source 'internal-declarations)
 	    (sax:start-internal-subset handler)
 	    (serialize-declaration-kludge
-- 
2.11.4.GIT