diff --git a/src/lsp/defstruct.lsp b/src/lsp/defstruct.lsp
index 3104f5d66..f2cc0c286 100644
--- a/src/lsp/defstruct.lsp
+++ b/src/lsp/defstruct.lsp
@@ -497,7 +497,7 @@ as a STRUCTURE doc and can be retrieved by (documentation 'NAME 'structure)."
 
     ;; Check the print-function.
     (when (and print-function type)
-      (error "An print function is supplied to a typed structure."))
+      (error "A print function is supplied to a typed structure."))
 
     ;;
     ;; The constructors rely on knowing the structure class. For toplevel
@@ -514,7 +514,7 @@ as a STRUCTURE doc and can be retrieved by (documentation 'NAME 'structure)."
 				    (make-constructor name constructor type named
 						      slot-descriptions))
 				constructors)))
-      `(eval-when (:compile-toplevel :load-toplevel :execute)
+      `(progn
 	 (eval-when (:compile-toplevel :load-toplevel)
 	   ,core
 	   ,(si::register-with-pde whole)