diff --git a/xml/xml-parse.lisp b/xml/xml-parse.lisp
index 94943b0..9a0b069 100644
--- a/xml/xml-parse.lisp
+++ b/xml/xml-parse.lisp
@@ -1096,7 +1096,8 @@
     (cond
       ((null e)
         (setf (gethash element-name (dtd-elements dtd))
-              (make-elmdef :name element-name :content content-model)))
+              (make-elmdef :name element-name :content content-model))
+       (sax:element-declaration (handler *ctx*) element-name content-model))
       ((null content-model)
         e)
       (t