diff --git a/xml/catalog.lisp b/xml/catalog.lisp
index 5e576dd..375703e 100644
--- a/xml/catalog.lisp
+++ b/xml/catalog.lisp
@@ -223,7 +223,7 @@
   (handler-case
       (parse-catalog-file/strict uri)
     (file-error () nil)
-    (parser-error () nil)))
+    (xml-parse-error () nil)))
 
 (defparameter *catalog-dtd*
     (let* ((cxml