diff --git a/pcl/ctor.lisp b/pcl/ctor.lisp
index 47875a65fc5e6b4c3cda8cd5e383472f8c89d291..a01a550114ab0be1ebe774020bae0d9bf9bd9571 100644
--- a/pcl/ctor.lisp
+++ b/pcl/ctor.lisp
@@ -46,7 +46,7 @@
 ;;; is called.
 
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/ctor.lisp,v 1.2 2003/03/22 16:15:17 gerd Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/ctor.lisp,v 1.3 2003/03/30 00:43:27 gerd Exp $")
 
 (in-package "PCL")
 
@@ -331,8 +331,6 @@
       (fake-initialization-emf ctor ii-methods si-methods)
     (setf (ctor-state ctor) 'optimized)
     `(kernel:instance-lambda ,(make-ctor-parameter-list ctor)
-       (declare (optimize (speed 3)))
-       (declare (ext:optimize-interface (speed 3)))
        ,(wrap-in-allocate-forms ctor body before-method-p))))
 
 ;;;