diff --git a/ansi-tests/find.lsp b/ansi-tests/find.lsp
index 7903e9f905439882fb54f83380049726151ef437..bf1b615c5e8b6288ab61afac289ccd18110dd84a 100644
--- a/ansi-tests/find.lsp
+++ b/ansi-tests/find.lsp
@@ -720,7 +720,7 @@
 
 (deftest find-error.4
   (locally (declare (optimize (safety 3)))
-	   (handler-case (find 'a '(a b c . d))
+	   (handler-case (find 'e '(a b c . d))
 			 (type-error () :type-error)
 			 (error (c) c)))
   :type-error)
diff --git a/ansi-tests/map.lsp b/ansi-tests/map.lsp
index a513a72bb206822cdec94fe36935cb28bb7c59e1..4e5ad6ab6b6f1f9bd150d8029af3982e822d356c 100644
--- a/ansi-tests/map.lsp
+++ b/ansi-tests/map.lsp
@@ -122,18 +122,18 @@
   "abcde")
 
 (deftest map-string.30
-  (map '(simple-vector character) #'identity '(#\a #\b #\c #\d #\e))
+  (map '(simple-vector 5) #'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")
+;;; (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")
+;;; (deftest map-string.32
+;;;  (map '(simple-array character 5) #'identity "abcde")
+;;;   "abcde")
 
 (deftest map-nil.33
   (let ((a nil))
diff --git a/ansi-tests/position.lsp b/ansi-tests/position.lsp
index 94205ce4d433385ae97f99c196bb42459e2d9530..623e288375f9cc467a24a42b6d6d86d3119e5cb0 100644
--- a/ansi-tests/position.lsp
+++ b/ansi-tests/position.lsp
@@ -586,7 +586,7 @@
 
 (deftest position-error.4
   (locally (declare (optimize (safety 3)))
-	   (handler-case (position 'a '(a b c . d))
+	   (handler-case (position 'e '(a b c . d))
 			 (type-error () :type-error)
 			 (error (c) c)))
   :type-error)