diff --git a/src/c/symbols_list.h b/src/c/symbols_list.h
index 02c16808d..995be9fbb 100755
--- a/src/c/symbols_list.h
+++ b/src/c/symbols_list.h
@@ -2241,5 +2241,8 @@ cl_symbols[] = {
 {EXT_ "TRULY-THE", EXT_ORDINARY, NULL, -1, OBJNULL},
 {EXT_ "CHECKED-VALUE", EXT_ORDINARY, NULL, -1, OBJNULL},
 
+{EXT_ "INSTALL-BYTECODES-COMPILER", EXT_ORDINARY, NULL, -1, OBJNULL},
+{EXT_ "INSTALL-C-COMPILER", EXT_ORDINARY, NULL, -1, OBJNULL},
+
 /* Tag for end of list */
 {NULL, CL_ORDINARY, NULL, -1, OBJNULL}};
diff --git a/src/c/symbols_list2.h b/src/c/symbols_list2.h
index ba359e6cc..0a6829a09 100644
--- a/src/c/symbols_list2.h
+++ b/src/c/symbols_list2.h
@@ -2241,5 +2241,8 @@ cl_symbols[] = {
 {EXT_ "TRULY-THE",NULL},
 {EXT_ "CHECKED-VALUE",NULL},
 
+{EXT_ "INSTALL-BYTECODES-COMPILER",NULL},
+{EXT_ "INSTALL-C-COMPILER",NULL},
+
 /* Tag for end of list */
 {NULL,NULL}};
diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp
index e428d3ec4..bdb6f9661 100755
--- a/src/cmp/cmpmain.lsp
+++ b/src/cmp/cmpmain.lsp
@@ -960,7 +960,7 @@ from the C language code.  NIL means \"do not create the file\"."
        (disassemble #'disassemble)
        (compile-file #'compile-file)
        (compile-file-pathname #'compile-file-pathname))
-  (defun install-c-compiler ()
+  (defun ext:install-c-compiler ()
     (ext::package-lock (find-package :cl) nil)
     (setf *features* (delete :ecl-bytecmp *features*))
     (setf (fdefinition 'disassemble) disassemble