diff --git a/compiler/main.lisp b/compiler/main.lisp
index 002153f7f4e21f8cfc202d72853d1e2315203e65..5d67d56669dfb106bf004c442e1dd80933e6f353 100644
--- a/compiler/main.lisp
+++ b/compiler/main.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/main.lisp,v 1.118 2000/08/09 12:56:40 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.119 2000/08/09 13:23:19 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -231,7 +231,7 @@
   (let ((*constraint-number* 0)
 	(loop-count 1)
 	(*delayed-transforms* nil))
-    (declare (special *constraint-number*))
+    (declare (special *constraint-number* *delayed-transforms*))
     (loop
      (ir1-optimize-until-done component)
      (when (or (component-new-functions component)