diff --git a/ansi-tests/remove.lsp b/ansi-tests/remove.lsp
index 996e11808535c92424899ebecac04a1eb696fe46..cea80256cc7a4b7ce14fb82cbdf2ce5a3450852e 100644
--- a/ansi-tests/remove.lsp
+++ b/ansi-tests/remove.lsp
@@ -294,6 +294,18 @@
   (remove 'a (vector 'a 'b 'c 'd) :count -1)
   #(a b c d))
 
+(deftest remove-string.1
+  (remove #\a (copy-seq "abcad"))
+  "bcd")
+
+(deftest remove-string.2
+  (remove #\a (copy-seq "abcad") :count -1)
+  "abcad")
+
+(deftest remove-string.3
+  (remove #\a (copy-seq "bcd") :count -1)
+  "bcd")
+
 (deftest delete-vector.1
   (delete 'a (vector 'b 'c 'd))
   #(b c d))
@@ -306,6 +318,42 @@
   (delete 'a (vector 'a 'b 'c 'd) :count -1)
   #(a b c d))
 
+(deftest delete-string.1
+  (delete #\a (copy-seq "abcad"))
+  "bcd")
+
+(deftest delete-string.2
+  (delete #\a (copy-seq "abcad") :count -1)
+  "abcad")
+
+(deftest delete-string.3
+  (delete #\a (copy-seq "bcd") :count -1)
+  "bcd")
+
+(deftest remove-bit-vector.1
+  (remove 0 (copy-seq #*00011101101))
+  #*111111)
+
+(deftest remove-bit-vector.2
+  (remove 0 (copy-seq #*00011101101) :count -1)
+  #*00011101101)
+
+(deftest remove-bit-vector.3
+  (remove 0 (copy-seq #*11111) :count -1)
+  #*11111)
+
+(deftest delete-bit-vector.1
+  (delete 0 (copy-seq #*00011101101))
+  #*111111)
+
+(deftest delete-bit-vector.2
+  (delete 0 (copy-seq #*00011101101) :count -1)
+  #*00011101101)
+
+(deftest delete-bit-vector.3
+  (delete 0 (copy-seq #*11111) :count -1)
+  #*11111)
+
 
 ;;; Randomized tests