diff --git a/code/class.lisp b/code/class.lisp
index baa9f4508d9d204ecadc228008aa6fa9595cfb5b..c1af8c6a6743e3af5d6474be4d4f1649abb308ff 100644
--- a/code/class.lisp
+++ b/code/class.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/class.lisp,v 1.17 1993/03/13 17:30:31 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/class.lisp,v 1.18 1993/03/14 12:12:21 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -201,12 +201,12 @@
 ;;; Non-structure "typed" defstructs are a special case, and don't have a
 ;;; corresponding class.
 ;;;
-(defstruct (basic-structure-class (:include class)))
-
-(defstruct (structure-class (:include basic-structure-class))
+(defstruct (basic-structure-class (:include class))
   ;;
   ;; Structure print function, or NIL if none.
-  (print-function nil :type (or function symbol null))
+  (print-function nil :type (or function symbol null)))
+
+(defstruct (structure-class (:include basic-structure-class))
   ;;
   ;; MAKE-LOAD-FORM method, or NIL if none. :J-D-I-N dumps the slots.
   ;; :IGNORE-IT is used for magic structures which the compiler inserts in IR1,