diff --git a/compiler/envanal.lisp b/compiler/envanal.lisp
index 49fb44f45fe724932b1d7fa0dbcd5ece77ebac02..76ed7f8113da65a510e608364c49750c7c44b635 100644
--- a/compiler/envanal.lisp
+++ b/compiler/envanal.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/envanal.lisp,v 1.32 2003/10/04 12:21:49 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/envanal.lisp,v 1.33 2003/10/26 10:27:58 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -348,9 +348,11 @@
 	     (code `(%catch-breakup)))
 	    (:unwind-protect
 	     (code `(%unwind-protect-breakup))
-	     (let ((fun (ref-leaf (continuation-use (second args)))))
-	       (reanalyze-funs fun)
-	       (code `(%funcall ,fun))))
+	     (let ((use (continuation-use (second args))))
+	       (when use
+		 (let ((fun (ref-leaf use)))
+		   (reanalyze-funs fun)
+		   (code `(%funcall ,fun))))))
 	    ((:block :tagbody)
 	     (cond (*converting-for-interpreter*
 		    ;; Avoid duplicates, as the interpreter expects just one