diff --git a/ansi-tests/map.lsp b/ansi-tests/map.lsp
index 4e5ad6ab6b6f1f9bd150d8029af3982e822d356c..65082afeb32debff96c593000d0ee11007ef3fce 100644
--- a/ansi-tests/map.lsp
+++ b/ansi-tests/map.lsp
@@ -29,13 +29,13 @@
   (map '(vector * 4) #'+ #(1 2 3 4) #(6 6 6 6))
   #(7 8 9 10))
 
-(deftest map-array.7
-  (map 'array #'identity '(a b c d e f))
-  #(a b c d e f))
+;;; (deftest map-array.7
+;;;  (map 'array #'identity '(a b c d e f))
+;;;  #(a b c d e f))
 
-(deftest map-array.8
-  (map 'simple-array #'identity '(a b c d e f))
-  #(a b c d e f))
+;;; (deftest map-array.8
+;;;   (map 'simple-array #'identity '(a b c d e f))
+;;;   #(a b c d e f))
 
 (deftest map-array.9
   (map 'simple-vector #'identity '(a b c d e f))