Index: /trunk/source/lib/compile-ccl.lisp
===================================================================
--- /trunk/source/lib/compile-ccl.lisp	(revision 13742)
+++ /trunk/source/lib/compile-ccl.lisp	(revision 13743)
@@ -550,5 +550,6 @@
         (setq allow-constant-redefinition t))))
     (let* ((cd (current-directory))
-           (*cerror-on-constant-redefinition* (not allow-constant-redefinition )))
+           (*cerror-on-constant-redefinition* (not allow-constant-redefinition ))
+	   (*warn-if-redefine-kernel* nil))
       (unwind-protect
            (progn