diff --git a/ansi-tests/string.lsp b/ansi-tests/string.lsp
index 36b10956d3717e16cf8c86bbc663e3b44eab52b5..254501c5a33458db0cdfb57593c1927bf4abfe2a 100644
--- a/ansi-tests/string.lsp
+++ b/ansi-tests/string.lsp
@@ -110,7 +110,7 @@
 
 (deftest simple-base-string.8
   (subtypep 'simple-base-string 'simple-vector)
-  t t)
+  nil t)
 
 ;;; Tests for simple-string-p