diff --git a/ansi-tests/map.lsp b/ansi-tests/map.lsp
index ff1ecfa3a990e4169b002b49e51d102fd50fcf95..f0ecd4f925514b070b56bf00ee31285d5cdd4c77 100644
--- a/ansi-tests/map.lsp
+++ b/ansi-tests/map.lsp
@@ -209,7 +209,7 @@
 
 (deftest map.48
   (let ((type '(or (vector t 10) (vector t 5))))
-    (if (subtypep type 'vector)
+    (if (subtypep type '(vector t))
 	(equalpt (map type #'identity '(1 2 3 4 5)) #(1 2 3 4 5))
       t))
   t)