diff --git a/code/defstruct.lisp b/code/defstruct.lisp
index 9ef38487d8933bb204962b563a13f3588d6f95d2..98882a1ff18cae6ca0ae158a58b3a4bf2589696e 100644
--- a/code/defstruct.lisp
+++ b/code/defstruct.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.18 1990/12/18 20:39:06 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.19 1990/12/19 00:23:49 wlott Exp $
 ;;;
 ;;; Defstruct structure definition package (Mark II).
 ;;; Written by Skef Wholey and Rob MacLachlan.
@@ -594,7 +594,7 @@
 						       ,(dsd-index slot))
 					,thing))
 			     slots thing)
-		   `(truly-the ,(dd-name defstruct) ,temp))))
+		   (truly-the ,(dd-name defstruct) ,temp))))
 	     (vector
 	      `(vector ,@initial-cruft ,@thing))
 	     (t