diff --git a/src/clos/standard.lsp b/src/clos/standard.lsp
index 97039898f..adf12b9a1 100644
--- a/src/clos/standard.lsp
+++ b/src/clos/standard.lsp
@@ -554,7 +554,7 @@ because it contains a reference to the undefined class~%  ~A"
 	       `(si::instance-ref ,slotd #.(position 'location +slot-definition-slots+
 						     :key #'first))))
     (values #'(lambda (self)
-                (declare (optimize (safety 0) (speed 3) (debug 0))
+                (declare (optimize (safety 1) (speed 3) (debug 0))
                          (standard-object self))
                 (ensure-up-to-date-instance self)
 		(let* ((class (si:instance-class self))
@@ -568,7 +568,7 @@ because it contains a reference to the undefined class~%  ~A"
 		      value
 		      (values (slot-unbound (class-of self) self slot-name)))))
 	    #'(lambda (value self)
-                (declare (optimize (safety 0) (speed 3) (debug 0))
+                (declare (optimize (safety 1) (speed 3) (debug 0))
                          (standard-object self))
                 (ensure-up-to-date-instance self)
 		(let* ((class (si:instance-class self))
@@ -583,12 +583,12 @@ because it contains a reference to the undefined class~%  ~A"
   (declare (si::c-local)
 	   (fixnum slot-index))
   (values #'(lambda (self)
-              (declare (optimize (safety 0) (speed 3) (debug 0))
+              (declare (optimize (safety 1) (speed 3) (debug 0))
                        (standard-object self))
               (ensure-up-to-date-instance self)
 	      (safe-instance-ref self index))
 	  #'(lambda (value self)
-              (declare (optimize (safety 0) (speed 3) (debug 0))
+              (declare (optimize (safety 1) (speed 3) (debug 0))
                        (standard-object self))
               (ensure-up-to-date-instance self)
 	      (si:instance-set self index value))))