diff --git a/ansi-tests/string-trim.lsp b/ansi-tests/string-trim.lsp
index bf8ae37f85ea9c5cf78e305e0e396e1e5a354f83..45a61e8bc1e8a899f387066504f841ef8023f8af 100644
--- a/ansi-tests/string-trim.lsp
+++ b/ansi-tests/string-trim.lsp
@@ -61,6 +61,49 @@
   "abcdaba"
   "cd")
 
+(deftest string-trim.8
+  (let* ((s (copy-seq "abcdaba"))
+	 (s2 (string-trim (make-array 2 :initial-contents '(#\a #\b #\c #\d)
+				      :element-type 'character
+				      :fill-pointer 2)
+			  s)))
+    (values s s2))
+  "abcdaba"
+  "cd")
 
+(deftest string-trim.9
+  (let* ((s (make-array 7 :initial-contents (coerce "abcdaba" 'list)
+			:element-type 'character
+			))
+	 (s2 (string-trim "ab" s)))
+    (values s s2))
+  "abcdaba"
+  "cd")
 
+(deftest string-trim.10
+  (let* ((s (make-array 9 :initial-contents (coerce "abcdabadd" 'list)
+			:element-type 'character
+			:fill-pointer 7))
+	 (s2 (string-trim "ab" s)))
+    (values s s2))
+  "abcdaba"
+  "cd")
+
+(deftest string-trim.11
+  (let* ((s (make-array 7 :initial-contents (coerce "abcdaba" 'list)
+			:element-type 'standard-char
+			))
+	 (s2 (string-trim "ab" s)))
+    (values s s2))
+  "abcdaba"
+  "cd")
+
+(deftest string-trim.12
+  (let* ((s (make-array 7 :initial-contents (coerce "abcdaba" 'list)
+			:element-type 'base-char
+			))
+	 (s2 (string-trim "ab" s)))
+    (values s s2))
+  "abcdaba"
+  "cd")