diff --git a/compiler/checkgen.lisp b/compiler/checkgen.lisp
index 3939c5116ef87d32b68d9e7a66cf8f81bb2f53de..b399ab54ef937747bb8814aea77f2aede36f6494 100644
--- a/compiler/checkgen.lisp
+++ b/compiler/checkgen.lisp
@@ -342,7 +342,6 @@
 	(node-ends-block (continuation-use prev)))
       
       (let* ((prev-block (continuation-block prev))
-	     (prev-cleanup (block-start-cleanup prev-block))
 	     (new-block (continuation-block new-start))
 	     (dummy (make-continuation)))
 	(dolist (block (block-pred prev-block))
@@ -350,9 +349,6 @@
 	(ir1-convert new-start dummy (make-type-check-form types))
 	(assert (eq (continuation-block dummy) new-block))
 
-	(setf (block-start-cleanup new-block) prev-cleanup)
-	(setf (block-end-cleanup new-block) prev-cleanup)
-
 	(let ((node (continuation-use dummy)))
 	  (setf (block-last new-block) node)
 	  (delete-continuation-use node)