diff --git a/ansi-tests/make-sequence.lsp b/ansi-tests/make-sequence.lsp
index 5086099ee97f4010017bc67beba8daf47a9d64ad..6ef56a47bd4442c43b34e75e171a3b6d172796e3 100644
--- a/ansi-tests/make-sequence.lsp
+++ b/ansi-tests/make-sequence.lsp
@@ -472,7 +472,7 @@
 (deftest make-sequence.error.15
   :notes (:result-type-element-type-by-subtype)
   (if (subtypep '(or (vector bit) (vector t)) 'vector)
-      (signals-error (make-sequence '(or (vector bit) (vector t)) 10 :initial-element 0) type-error)
+      (signals-error (make-sequence '(or (vector bit) (vector t)) 10 :initial-element 0) error)
     t)
   t)