diff --git a/code/macros.lisp b/code/macros.lisp
index 0c0d1ba74e46ffcbccefadc8239397dabc62e246..49b814412c3c14ad2ef5ed720e766e234a3201c7 100644
--- a/code/macros.lisp
+++ b/code/macros.lisp
@@ -189,8 +189,8 @@
 					 :error-string 'deftype-error-string
 					 )
       `(eval-when (compile load eval)
-	 (setf (info type kind name) :defined)
-	 (setf (info type expander name)
+	 (setf (info type kind ',name) :defined)
+	 (setf (info type expander ',name)
 	       #'(lambda (,whole) ,@local-decs (block ,name ,body)))
 	 ,@(when doc
 	     `((setf (documentation ',name 'type) ,doc)))