diff --git a/ansi-tests/declaration.lsp b/ansi-tests/declaration.lsp
index e3f7b9e91ca95164f2644648e43657cc0d4c52a3..5ee823f723cebb84a25c4cc6c98d24f6df7fa79f 100644
--- a/ansi-tests/declaration.lsp
+++ b/ansi-tests/declaration.lsp
@@ -21,7 +21,7 @@
     nil)
   nil)
 
-;;; For the error tests, see the page in the CLHS for TYPE.
+;;; For the error tests, see the page in the CLHS for TYPE:
 ;;; "A symbol cannot be both the name of a type and the name
 ;;;  of a declaration. Defining a symbol as the name of a class,
 ;;;  structure, condition, or type, when the symbol has been
@@ -61,7 +61,7 @@
 
 (deftest declaration.9
   (let ((sym (gensym)))
-    (eval `(defstruct ,sym a b c) error)
+    (eval `(defstruct ,sym a b c))
     (eval `(signals-error-always (proclaim '(declaration ,sym))
 				 error)))
   t t)