diff --git a/compiler/life.lisp b/compiler/life.lisp
index 78637dc85d528ea759b51c13189b63aa449450a5..ea8c134dd0b8541f4d467aced92e867b3c570240 100644
--- a/compiler/life.lisp
+++ b/compiler/life.lisp
@@ -644,7 +644,8 @@
 		(do-live-tns (tn ss block)
 		  (unless (eq (tn-kind tn) :component)
 		    (force-tn-to-stack tn)
-		    (convert-to-environment-tn tn)))))))
+		    (unless (eq (tn-kind tn) :environment)
+		      (convert-to-environment-tn tn))))))))
 	
 	(do ((ref (vop-refs vop) (tn-ref-next-ref ref)))
 	    ((null ref))