diff --git a/compiler/envanal.lisp b/compiler/envanal.lisp
index 76ed7f8113da65a510e608364c49750c7c44b635..bf35e1164a4a9ac118fe6021ce3c418f5a524be5 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.33 2003/10/26 10:27:58 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/envanal.lisp,v 1.34 2004/04/13 17:46:21 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -431,7 +431,7 @@
 
 ;;;; Dynamic-Extent Closures
 
-(defvar *suppress-dynamic-extent-safe-closures* nil)
+(defvar *suppress-dynamic-extent-safe-closures* t)
 
 ;;;
 ;;; Mark closures that can be allocated on the stack because they are
diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp
index e78ad2802f90391724a070184031f3bce5c8ec67..4f7bf1c47ae2be99fc55caa696e1e128c9c655a2 100644
--- a/compiler/ir1tran.lisp
+++ b/compiler/ir1tran.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/ir1tran.lisp,v 1.167 2003/12/02 16:59:12 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.168 2004/04/13 17:46:21 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -144,7 +144,7 @@
 
 ;;;; Dynamic-Extent
 
-(defvar *trust-dynamic-extent-declarations* nil
+(defvar *trust-dynamic-extent-declarations* t
   "If NIL, never trust dynamic-extent declarations.
 
    If T, always trust dynamic-extent declarations.