diff --git a/ansi-tests/base-string.lsp b/ansi-tests/base-string.lsp
index 451166e7b80cc2202fb99f3540ef5cd82a44860e..e3c2a743a18cb8f4af5285f80eb2fda83783044f 100644
--- a/ansi-tests/base-string.lsp
+++ b/ansi-tests/base-string.lsp
@@ -22,6 +22,7 @@
   t t)
 
 (deftest base-string.5
+  :notes (:allow-nil-arrays)
   (subtypep* '(array nil (*)) 'base-string)
   nil t)
 
diff --git a/ansi-tests/simple-base-string.lsp b/ansi-tests/simple-base-string.lsp
index 8821bbceb354e8d95d9d25d0772b3214eb9f11c4..418317064a17c5f7879f0024af936ed4f711dc5f 100644
--- a/ansi-tests/simple-base-string.lsp
+++ b/ansi-tests/simple-base-string.lsp
@@ -38,13 +38,16 @@
   nil t)
 
 (deftest simple-base-string.9
+  :notes (:allow-nil-arrays)
   (subtypep* '(simple-array nil (*)) 'simple-base-string)
   nil t)
 
 (deftest simple-base-string.10
+  :notes (:allow-nil-arrays)
   (typep* (make-array '(0) :element-type nil) 'simple-base-string)
   nil)
 
 (deftest simple-base-string.11
+  :notes (:allow-nil-arrays)
   (typep* (make-array '(12) :element-type nil) 'simple-base-string)
   nil)
diff --git a/ansi-tests/string.lsp b/ansi-tests/string.lsp
index 70a971928b9d05e6d18dfad417732ec95f0240d5..e8a33a2c9bf48976b50d6accea8412583cf6efe1 100644
--- a/ansi-tests/string.lsp
+++ b/ansi-tests/string.lsp
@@ -40,17 +40,17 @@
   nil)
 
 (deftest string.8 
-  :notes (:nil-vectors-are-strings)
+  :notes (:allow-nil-arrays :nil-vectors-are-strings)
   (subtypep* '(array nil (*)) 'string)
   t t)
 
 (deftest string.9
-  :notes (:nil-vectors-are-strings)
+  :notes (:allow-nil-arrays :nil-vectors-are-strings)
   (subtypep* '(array nil 1) 'string)
   t t)
 
 (deftest string.10
-  :notes (:nil-vectors-are-strings)
+  :notes (:allow-nil-arrays :nil-vectors-are-strings)
   (string (make-array '(0) :element-type nil))
   "")
 
@@ -59,12 +59,12 @@
   t)
 
 (deftest string.12
-  :notes (:nil-vectors-are-strings)
+  :notes (:allow-nil-arrays :nil-vectors-are-strings)
   (typep* (make-array '(17) :element-type nil) 'string)
   t)
 
 (deftest string.13
-  :notes (:nil-vectors-are-strings)
+  :notes (:allow-nil-arrays :nil-vectors-are-strings)
   (typep* (make-array '(0) :element-type nil) 'string)
   t)