diff --git a/src/new-cmp/cmpstack.lsp b/src/new-cmp/cmpstack.lsp
index 5a9e80239..2f0c47a0a 100644
--- a/src/new-cmp/cmpstack.lsp
+++ b/src/new-cmp/cmpstack.lsp
@@ -38,16 +38,16 @@
 (defun c1stack-push (destination args)
   (let* ((var (c1vref (first args)))
          (value (second args)))
-    (c1translate 'VALUE0 value)
-    (c1stack-frame-push var 'VALUE0)))
+    (nconc (c1translate 'VALUE0 value)
+           (c1stack-frame-push var 'VALUE0))))
 
 (defun c1stack-push-values (destination args)
   (unless (eq destination 'TRASH)
     (error "In C1STACK-PUSH-VALUES, destination should be TRASH"))
   (let* ((frame-var (pop args))
          (form (pop args)))
-    (c1translate 'VALUES form)
-    (c1stack-frame-push-values (c1vref frame-var))))
+    (nconc (c1translate 'VALUES form)
+           (c1stack-frame-push-values (c1vref frame-var)))))
 
 (defun c1stack-pop (destination args)
   (let* ((frame-var-name (pop args))