diff --git a/compiler/ir1opt.lisp b/compiler/ir1opt.lisp
index 7afa44cce78bac38f2fb1ff734f8f5a1a205b748..f0ec6a756b03b6e200c28ca21ea1f01c6c0134c0 100644
--- a/compiler/ir1opt.lisp
+++ b/compiler/ir1opt.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1opt.lisp,v 1.72 2000/08/09 12:56:39 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1opt.lisp,v 1.73 2000/09/26 16:40:11 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1371,8 +1371,8 @@
 ;;; over top-level lambda vars.  In such cases, the references may have already
 ;;; been compiled, and thus can't be retroactively modified.
 ;;;
-;;;    If all of the variables are deleted (have no references or sets) when
-;;; we are done, then we delete the let.
+;;;    If all of the variables are deleted (have no references) when we are
+;;; done, then we delete the let.
 ;;;
 ;;;    Note that we are responsible for clearing the Continuation-Reoptimize
 ;;; flags.
@@ -1410,9 +1410,8 @@
 	     (substitute-single-use-continuation arg var)))
        (t
 	(propagate-to-refs var (continuation-type arg))))))
-  
-  (when (and (every #'null (combination-args call))
-	     (notany #'lambda-var-sets (lambda-vars fun)))
+
+  (when (every #'null (combination-args call))
     (delete-let fun))
 
   (undefined-value))