diff --git a/compiler/vmdef.lisp b/compiler/vmdef.lisp
index e6672c77ef7c86cfcfdd9e8d547bbb32743cabed..373e6a8cd9880e80f8aa91d61913e867ee42634f 100644
--- a/compiler/vmdef.lisp
+++ b/compiler/vmdef.lisp
@@ -2367,12 +2367,6 @@
 			      (block-component
 			       (ir2-block-block ,n-block)))))
 	     (,n-bod ,tn-var))
-	   ;;
-	   ;; Do environment-live TNs.
-	   (dolist (,tn-var (ir2-environment-live-tns
-			     (environment-info
-			      (ir2-block-environment ,n-block))))
-	     (,n-bod ,tn-var))
 	   
 	   (let ((,ltns (ir2-block-local-tns ,n-block)))
 	     ;;