diff --git a/code/struct.lisp b/code/struct.lisp
index a8f362856b285cd587d24dc77a472139bec2c198..30a144080d97c1d608c0d25f08d8ca8c4e590e5c 100644
--- a/code/struct.lisp
+++ b/code/struct.lisp
@@ -21,8 +21,11 @@
 #+new-compiler
 (progn
 ;;; Make these types be sort-of-defined to allow bootstrapping.
-(setf (info type kind 'defstruct-description) :structure)
-(setf (info type kind 'defstruct-slot-description) :structure)
+(setf (info type defined-structure-info 'defstruct-description)
+      (make-defstruct-description))
+
+(setf (info type defined-structure-info 'defstruct-slot-description)
+      (make-defstruct-description))
 
 
 ;;; Define this now so that EQUAL works: