diff --git a/code/defstruct.lisp b/code/defstruct.lisp
index a03b866c1321d8c9f60e557793caf358afd9690d..58268b8f48027197f1e1e4928a79a30c6a139935 100644
--- a/code/defstruct.lisp
+++ b/code/defstruct.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.102 2010/04/23 13:23:29 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.103 2010/12/26 14:54:33 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1120,7 +1120,7 @@
 	  (res (create-keyword-constructor defstruct creator))
 	  (dolist (other-name (rest defaults))
 	    (res `(setf (fdefinition ',other-name) (fdefinition ',cname)))
-	    (res `(declaim (ftype function ',other-name))))))
+	    (res `(declaim (ftype function ,other-name))))))
       
       (dolist (boa boas)
 	(res (create-boa-constructor defstruct boa creator)))