diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp
index 50edbe8f7..ebbc920eb 100755
--- a/src/cmp/cmpmain.lsp
+++ b/src/cmp/cmpmain.lsp
@@ -478,7 +478,9 @@ output = si_safe_eval(2, ecl_read_from_cstring(lisp_code), ECL_NIL);
     (unless init-name
       (setf init-name (compute-init-name output-name :kind target)))
     (unless main-name
-      (setf main-name (compute-main-name output-name :kind target)))
+      (setf main-name (compute-init-name output-name
+                                         :kind target
+                                         :prefix "main_")))
     (ecase target
       (:program
        (format c-file +lisp-program-init+ init-name "" submodules "")
diff --git a/src/cmp/cmpname.lsp b/src/cmp/cmpname.lsp
index f70c00edf..4382bbcd3 100644
--- a/src/cmp/cmpname.lsp
+++ b/src/cmp/cmpname.lsp
@@ -123,9 +123,6 @@ the function name it precedes."
       (otherwise
        (error "C::BUILDER cannot accept files of kind ~s" kind)))))
 
-(defun compute-main-name (pathname &rest args)
-  (apply #'compute-init-name pathname :prefix "main_" args))
-
 (defun init-function-name (s &key (kind :object) (prefix nil))
   (flet ((translate-char (c)
            (cond ((and (char>= c #\a) (char<= c #\z))