diff --git a/pcl/braid.lisp b/pcl/braid.lisp
index 0af56a59754d3de7184493ff414b93644059e236..8fe1de4b024d49bbc405895172aa975a295f99c9 100644
--- a/pcl/braid.lisp
+++ b/pcl/braid.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/braid.lisp,v 1.20 2002/05/25 02:42:52 pmai Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/braid.lisp,v 1.21 2002/07/03 10:57:17 pmai Exp $")
 ;;;
 ;;; Bootstrapping the meta-braid.
 ;;;
@@ -566,7 +566,12 @@
 	    (kernel:order-layout-inherits
 	     (map 'simple-vector #'class-wrapper
 		  (reverse (rest (class-precedence-list class))))))
-      (kernel:register-layout layout)
+      
+      ;; The invalidate nil is wrong, since it leaves the CMUCL type-system
+      ;; with obsolete information, but fixing it requires extensive changes
+      ;; to the PCL instance-updating mechanism, which relies on access to
+      ;; the old wrapper.
+      (kernel:register-layout layout :invalidate nil)
 
       ;; Subclasses of formerly forward-referenced-class may be unknown
       ;; to lisp:find-class and also anonymous. This functionality moved