diff --git a/xml/xmls-compat.lisp b/xml/xmls-compat.lisp
index 26a1b44..cd98853 100644
--- a/xml/xmls-compat.lisp
+++ b/xml/xmls-compat.lisp
@@ -61,7 +61,7 @@
 
 ;;;; SAX-Handler (Parser)
 
-(defclass xmls-builder ()
+(defclass xmls-builder (sax:default-handler)
     ((element-stack :initform nil :accessor element-stack)
      (root :initform nil :accessor root)
      (include-default-values :initform t