diff --git a/tk/load-xm.lisp b/tk/load-xm.lisp
index 5f800aecdd3da409140f8d9cc76f67042bfb8031..0a8842ebc8efc9cf36ddd1641ffb58129a28076d 100644
--- a/tk/load-xm.lisp
+++ b/tk/load-xm.lisp
@@ -43,7 +43,7 @@
         (unless (dolist (pathname sys::*clim-library-search-path*)
                   (handler-case (progn (load (merge-pathnames sys::library-name pathname))
                                        (return t))
-                    (error (e) nil)))
+                    (error (e) (declare (ignore e)) nil)))
           (error "Can't find ~a in ~{~a~^, ~}~%" sys::library-name sys::*clim-library-search-path*))))))
 
 #+(version>= 5 0)