diff --git a/ansi-tests/subtypep-array.lsp b/ansi-tests/subtypep-array.lsp
index 33ea691e65d4e9236e24208a812adf247e191e85..41e528dbbd33622cefde64b8c7ebf4b1778b8a58 100644
--- a/ansi-tests/subtypep-array.lsp
+++ b/ansi-tests/subtypep-array.lsp
@@ -188,7 +188,7 @@
 
 (deftest simple-string-is-simple-1d-array-of-character.5
   (subtypep* '(simple-string 17) '(simple-array character (17)))
-  t t)
+  nil t)
 
 (deftest simple-string-is-simple-1d-array-of-character.6
   (subtypep* '(simple-array character (17)) '(simple-string 17))