diff --git a/compiler/life.lisp b/compiler/life.lisp
index 730060e367b07375b3892ec4b1131be82f8d47d4..fdc8f3b3e714f7b6abf6e6c752c902bafbc3b592 100644
--- a/compiler/life.lisp
+++ b/compiler/life.lisp
@@ -648,7 +648,7 @@
 		 (dolist (tn save-set)
 		   (force-tn-to-stack tn)
 		   (convert-to-environment-tn tn)))
-		((t)
+		((t :compute-only)
 		 (setf (first (vop-codegen-info vop)) save-set))))))
 
 	(do ((ref (vop-refs vop) (tn-ref-next-ref ref)))