diff --git a/ansi-tests/char-schar.lsp b/ansi-tests/char-schar.lsp
index aa15a32b2d5197910d7ba62192c67f334a6eef44..fc07c31c2e1ccaf22c6700b0ed7d82a3ba320abb 100644
--- a/ansi-tests/char-schar.lsp
+++ b/ansi-tests/char-schar.lsp
@@ -23,14 +23,14 @@
   "Xbcd" "aXcd" "abXd" "abcX")
 
 (deftest char.3
-  (let ((s (make-array 6 :element-type 'chararacter
+  (let ((s (make-array 6 :element-type 'character
 		       :initial-contents '(#\a #\b #\c #\d #\e #\f))))
     (setf (char s 3) #\X)
     s)
   "abcXef")
 
 (deftest char.4
-  (let ((s (make-array 6 :element-type 'chararacter
+  (let ((s (make-array 6 :element-type 'character
 		       :initial-contents '(#\a #\b #\c #\d #\e #\f)
 		       :fill-pointer 4)))
     (setf (char s 3) #\X)
@@ -56,7 +56,7 @@
   "aaaXa")
 
 (deftest char.8
-  (let ((s (make-array 6 :element-type 'chararacter
+  (let ((s (make-array 6 :element-type 'character
 		       :initial-contents '(#\a #\b #\c #\d #\e #\f)
 		       :fill-pointer 4)))
     (setf (char s 5) #\X)
diff --git a/ansi-tests/map.lsp b/ansi-tests/map.lsp
index 86d5b0f9f1c37f14f2c60f9f4fc37d3434a5327e..a513a72bb206822cdec94fe36935cb28bb7c59e1 100644
--- a/ansi-tests/map.lsp
+++ b/ansi-tests/map.lsp
@@ -125,10 +125,12 @@
   (map '(simple-vector character) #'identity '(#\a #\b #\c #\d #\e))
   "abcde")
 
+;;; Use a more elaborate form of the simple-array type specifier
 (deftest map-string.31
   (map '(simple-array character *) #'identity "abcde")
   "abcde")
 
+;;; Use a more elaborate form of the simple-array type specifier
 (deftest map-string.32
   (map '(simple-array character 5) #'identity "abcde")
   "abcde")
diff --git a/ansi-tests/reader-test.lsp b/ansi-tests/reader-test.lsp
index 40120456330a1c2c506c7a5ce46cea717e27ef48..817de73a728dc7595c7a22ae877189fb87e50ead 100644
--- a/ansi-tests/reader-test.lsp
+++ b/ansi-tests/reader-test.lsp
@@ -97,6 +97,7 @@
 			   "ABCD"))))
   t)
 	     
+#|
 (deftest read-symbol-8
     (multiple-value-bind (s n)
 	(ignore-errors (read-from-string "::ABCD"))
@@ -107,6 +108,7 @@
 	     (string-equal (symbol-name s)
 			   "ABCD"))))
   t)
+|#
 
 (defun read-symbol-9-body (natoms maxlen)
   (let* ((chars (concatenate 'string
diff --git a/ansi-tests/string.lsp b/ansi-tests/string.lsp
index 9de96d27777773721c1cd911faa5bf69a69201cc..36b10956d3717e16cf8c86bbc663e3b44eab52b5 100644
--- a/ansi-tests/string.lsp
+++ b/ansi-tests/string.lsp
@@ -108,6 +108,10 @@
   (subtypep 'simple-base-string 'simple-string)
   t t)
 
+(deftest simple-base-string.8
+  (subtypep 'simple-base-string 'simple-vector)
+  t t)
+
 ;;; Tests for simple-string-p
 
 (deftest simple-string-p.1