diff --git a/src/cmp/cmpeval.lsp b/src/cmp/cmpeval.lsp
index e853c6dd8..5bbdb1127 100644
--- a/src/cmp/cmpeval.lsp
+++ b/src/cmp/cmpeval.lsp
@@ -157,9 +157,8 @@
                   (push v all-values)
                   (return nil))
            finally
-             (return (c1constant-value
-                      (apply fname (nreverse all-values))
-                      :only-small-values nil)))
+             (return (c1expr `(values ,@(multiple-value-list
+                                         (apply fname (nreverse all-values)))))))
       (error (c)))))
 
 (defun c2expr (form)