diff --git a/ansi-tests/subtypep-array.lsp b/ansi-tests/subtypep-array.lsp
index 32a7216efa7ec3eae52c34791235d8c0f4c06895..31dd86bc7e6cf4faadeef0d64231b278b869ee7c 100644
--- a/ansi-tests/subtypep-array.lsp
+++ b/ansi-tests/subtypep-array.lsp
@@ -120,6 +120,9 @@
 		collect (list type1 type2))))
   nil)
 
+(deftest subtypep.array.10
+  (subtypep* '(array t nil) 'integer)
+  nil t)
 
 
 ;;;; Tests on the definitions of various vector types