diff --git a/ansi-tests/gclload2.lsp b/ansi-tests/gclload2.lsp
index c431460e5a334e79d5ecc0b9c5c54172d7e950f7..eb076ea1b817664cd3482b4ebf3d7343b0350d1d 100644
--- a/ansi-tests/gclload2.lsp
+++ b/ansi-tests/gclload2.lsp
@@ -121,3 +121,4 @@
 (load "nstring-upcase.lsp")
 (load "nstring-downcase.lsp")
 (load "nstring-capitalize.lsp")
+(load "string-trim.lsp")
\ No newline at end of file
diff --git a/ansi-tests/string-trim.lsp b/ansi-tests/string-trim.lsp
new file mode 100644
index 0000000000000000000000000000000000000000..bf8ae37f85ea9c5cf78e305e0e396e1e5a354f83
--- /dev/null
+++ b/ansi-tests/string-trim.lsp
@@ -0,0 +1,66 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Thu Oct  3 21:53:38 2002
+;;;; Contains: Tests for STRING-TRIM
+
+(in-package :cl-test)
+
+(deftest string-trim.1
+  (let* ((s (copy-seq "abcdaba"))
+	 (s2 (string-trim "ab" s)))
+    (values s s2))
+  "abcdaba"
+  "cd")
+
+(deftest string-trim.2
+  (let* ((s (copy-seq "abcdaba"))
+	 (s2 (string-trim '(#\a #\b) s)))
+    (values s s2))
+  "abcdaba"
+  "cd")
+
+(deftest string-trim.3
+  (let* ((s (copy-seq "abcdaba"))
+	 (s2 (string-trim #(#\a #\b) s)))
+    (values s s2))
+  "abcdaba"
+  "cd")
+
+(deftest string-trim.4
+  (let* ((s (copy-seq "abcdaba"))
+	 (s2 (string-trim (make-array 2 :initial-contents '(#\a #\b))
+			  s)))
+    (values s s2))
+  "abcdaba"
+  "cd")
+
+(deftest string-trim.5
+  (let* ((s (copy-seq "abcdaba"))
+	 (s2 (string-trim (make-array 2 :initial-contents '(#\a #\b)
+				      :element-type 'character)
+			  s)))
+    (values s s2))
+  "abcdaba"
+  "cd")
+
+(deftest string-trim.6
+  (let* ((s (copy-seq "abcdaba"))
+	 (s2 (string-trim (make-array 2 :initial-contents '(#\a #\b)
+				      :element-type 'standard-char)
+			  s)))
+    (values s s2))
+  "abcdaba"
+  "cd")
+
+(deftest string-trim.7
+  (let* ((s (copy-seq "abcdaba"))
+	 (s2 (string-trim (make-array 2 :initial-contents '(#\a #\b)
+				      :element-type 'base-char)
+			  s)))
+    (values s s2))
+  "abcdaba"
+  "cd")
+
+
+
+