diff --git a/pcl/std-class.lisp b/pcl/std-class.lisp
index 50e29e5716bf6e629d008a813714fde260b405e0..6ba1fb0eff126c3191b66114dc6a722840ac1742 100644
--- a/pcl/std-class.lisp
+++ b/pcl/std-class.lisp
@@ -1022,8 +1022,7 @@
 	      (wrapper-class-slots owrapper))
 	(without-interrupts
 	  (setf (slot-value class 'wrapper) nwrapper)
-	  (invalidate-wrapper owrapper ':flush nwrapper))
-	(update-constructors class)))))		;??? ***
+	  (invalidate-wrapper owrapper ':flush nwrapper))))))
 
 (defun flush-cache-trap (owrapper nwrapper instance)
   (declare (ignore owrapper))