diff --git a/contrib/bytecmp/bytecmp.lsp b/contrib/bytecmp/bytecmp.lsp
index 8b851e9af..3c115fc27 100755
--- a/contrib/bytecmp/bytecmp.lsp
+++ b/contrib/bytecmp/bytecmp.lsp
@@ -125,6 +125,11 @@
         (fdefinition 'compile-file-pathname) #'bc-compile-file-pathname)
   (ext::package-lock (find-package :cl) t))
 
+(defun install-c-compiler ()
+  (require :cmp)
+  (locally (declare (notinline install-c-compiler))
+    (funcall 'install-c-compiler)))
+
 #-ecl-min
 (progn
 #+(and dlopen (not windows))