diff --git a/ansi-tests/base-string.lsp b/ansi-tests/base-string.lsp
index e3c2a743a18cb8f4af5285f80eb2fda83783044f..22d30d195ea490d8f27af630b4982a5fad9a0795 100644
--- a/ansi-tests/base-string.lsp
+++ b/ansi-tests/base-string.lsp
@@ -22,7 +22,7 @@
   t t)
 
 (deftest base-string.5
-  :notes (:allow-nil-arrays)
+  :notes (:allow-nil-arrays :nil-vectors-are-strings)
   (subtypep* '(array nil (*)) 'base-string)
   nil t)
 
@@ -30,4 +30,3 @@
   :notes (:nil-vectors-are-strings)
   (subtypep* 'string 'base-string)
   nil t)
-
diff --git a/ansi-tests/notes.lsp b/ansi-tests/notes.lsp
index 25c226d8d3204c4080c9e29e30873dd4eb8fe538..d5e457d6742bfada4c562750f997f207f30305b7 100644
--- a/ansi-tests/notes.lsp
+++ b/ansi-tests/notes.lsp
@@ -48,5 +48,5 @@ If negative zeros are distinct this is probably not good, since it makes (defcon
 
 ;;; Haible disagrees with :result-type-element-type-by-subtype
 #+clisp (rt::disable-note :result-type-element-type-by-subtype)
-#+(or openmcl gcl) (rt::disable-note :nil-vectors-are-strings)
+#+(or openmcl gcl ecl) (rt::disable-note :nil-vectors-are-strings)
 #+gcl (rt::disable-note :allow-nil-arrays)
diff --git a/ansi-tests/proclaim.lsp b/ansi-tests/proclaim.lsp
index 9b46d0e429ec0ac6416858d22ac0c87040bccd51..bcd372502df456abfa8129be1780766a3a9ad628 100644
--- a/ansi-tests/proclaim.lsp
+++ b/ansi-tests/proclaim.lsp
@@ -36,19 +36,19 @@
   t)
 
 (deftest proclaim.error.3
-  (signals-error (proclaim `(optimize . foo)) type-error)
+  (signals-error (proclaim `(optimize . foo)) error)
   t)
 
 (deftest proclaim.error.4
-  (signals-error (proclaim `(inline . foo)) type-error)
+  (signals-error (proclaim `(inline . foo)) error)
   t)
 
 (deftest proclaim.error.5
-  (signals-error (proclaim `(notinline . foo)) type-error)
+  (signals-error (proclaim `(notinline . foo)) error)
   t)
 
 (deftest proclaim.error.6
-  (signals-error (proclaim `(type . foo)) type-error)
+  (signals-error (proclaim `(type . foo)) error)
   t)
 
 (deftest proclaim.error.7
@@ -56,22 +56,17 @@
   t)
 
 (deftest proclaim.error.8
-  (signals-error (proclaim '(type integer . foo)) type-error)
+  (signals-error (proclaim '(type integer . foo)) error)
   t)
 
 (deftest proclaim.error.9
-  (signals-error (proclaim '(integer . foo)) type-error)
+  (signals-error (proclaim '(integer . foo)) error)
   t)
 
 (deftest proclaim.error.10
-  (signals-error (proclaim '(declaration . foo)) type-error)
+  (signals-error (proclaim '(declaration . foo)) error)
   t)
 
 (deftest proclaim.error.11
-  (signals-error (proclaim '(ftype (function (t) t) . foo)) type-error)
+  (signals-error (proclaim '(ftype (function (t) t) . foo)) error)
   t)
-
-
-
-
-
diff --git a/ansi-tests/simple-base-string.lsp b/ansi-tests/simple-base-string.lsp
index 418317064a17c5f7879f0024af936ed4f711dc5f..4e57921506e800515277ed20b338fb216b81770d 100644
--- a/ansi-tests/simple-base-string.lsp
+++ b/ansi-tests/simple-base-string.lsp
@@ -38,16 +38,16 @@
   nil t)
 
 (deftest simple-base-string.9
-  :notes (:allow-nil-arrays)
+  :notes (:allow-nil-arrays :nil-vectors-are-strings)
   (subtypep* '(simple-array nil (*)) 'simple-base-string)
   nil t)
 
 (deftest simple-base-string.10
-  :notes (:allow-nil-arrays)
+  :notes (:allow-nil-arrays :nil-vectors-are-strings)
   (typep* (make-array '(0) :element-type nil) 'simple-base-string)
   nil)
 
 (deftest simple-base-string.11
-  :notes (:allow-nil-arrays)
+  :notes (:allow-nil-arrays :nil-vectors-are-strings)
   (typep* (make-array '(12) :element-type nil) 'simple-base-string)
   nil)