diff --git a/compiler/control.lisp b/compiler/control.lisp
index 25f6ff8667bd1820271632c160fe1dec713d42b5..354dda652e2d84df2cced70de33edd54b9dd78f0 100644
--- a/compiler/control.lisp
+++ b/compiler/control.lisp
@@ -108,8 +108,7 @@
 ;;;    When we are done, we delete all blocks that weren't reached during our
 ;;; walk.  This allows IR2 phases to assume that all IR1 blocks in the DFO have
 ;;; valid IR2 blocks in their Info.  We delete all deleted blocks from the
-;;; IR2-COMPONENT VALUES-GENERATORS and VALUES-RECEIVERS so that stack analysis
-;;; won't get confused.
+;;; IR2-COMPONENT VALUES-RECEIVERS so that stack analysis won't get confused.
 ;;;
 (defun control-analyze (component)
   (let* ((head (component-head component))
@@ -137,9 +136,6 @@
   (let ((2comp (component-info component)))
     (setf (ir2-component-values-receivers 2comp)
 	  (delete-if-not #'block-component
-			 (ir2-component-values-receivers 2comp)))
-    (setf (ir2-component-values-generators 2comp)
-	  (delete-if-not #'block-component
-			 (ir2-component-values-generators 2comp))))
+			 (ir2-component-values-receivers 2comp))))
 
   (undefined-value))