fixed type of sysid in klacks:serialize-event

2009-03-11 16:41:09 +01:00
parent 3aada6fb89
commit 401d6e4e5d
1 changed files with 1 additions and 1 deletions
--- 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