diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp
index 6b99d1c88..728304aa4 100755
--- a/src/cmp/cmpmain.lsp
+++ b/src/cmp/cmpmain.lsp
@@ -703,7 +703,7 @@ compiled successfully, returns the pathname of the compiled file"
 	       (setf warning-p t))
 	      ((typep i '(or compiler-error warning))
 	       (setf warning-p t failure-p t)))
-     finally (return (values (and (not failure-p) main-value) warning-p failure-p))))
+     finally (return (values main-value warning-p failure-p))))
 
 #-dlopen
 (defun compile (name &optional (def nil supplied-p))
diff --git a/src/new-cmp/cmpmain.lsp b/src/new-cmp/cmpmain.lsp
index 92a7d30a4..486dcb9df 100644
--- a/src/new-cmp/cmpmain.lsp
+++ b/src/new-cmp/cmpmain.lsp
@@ -587,7 +587,7 @@ compiled successfully, returns the pathname of the compiled file"
 	       (setf warning-p t))
 	      ((typep i '(or compiler-error warning))
 	       (setf warning-p t failure-p t)))
-     finally (return (values (and (not failure-p) main-value) warning-p failure-p))))
+     finally (return (values main-value warning-p failure-p))))
 
 #-dlopen
 (defun compile (name &optional (def nil supplied-p))