diff --git a/ansi-tests/make-sequence.lsp b/ansi-tests/make-sequence.lsp
index a79dd75ad6d3c6fd721a279b2edcbaf74f998a94..b603f7cd3d9e7271d49d72be3727aef86a421a24 100644
--- a/ansi-tests/make-sequence.lsp
+++ b/ansi-tests/make-sequence.lsp
@@ -223,6 +223,29 @@
 	  collect (list etype type vec)))
   nil)
 
+;;; Other type specifiers
+
+(deftest make-sequence.31
+  (make-sequence '(simple-string) 10 :initial-element #\X)
+  "XXXXXXXXXX")
+
+(deftest make-sequence.32
+  (make-sequence '(simple-string 10) 10 :initial-element #\X)
+  "XXXXXXXXXX")
+
+(deftest make-sequence.33
+  (make-sequence '(string) 10 :initial-element #\X)
+  "XXXXXXXXXX")
+
+(deftest make-sequence.34
+  (make-sequence '(vector) 10 :initial-element nil)
+  #(nil nil nil nil nil nil nil nil nil nil))
+
+(deftest make-sequence.35
+  (make-sequence '(simple-vector) 10 :initial-element nil)
+  #(nil nil nil nil nil nil nil nil nil nil))
+
+
 ;;; Keyword tests
 
 (deftest make-sequence.allow-other-keys.1