diff --git a/ansi-tests/gclload2.lsp b/ansi-tests/gclload2.lsp
index fd31448b054439d36a2b93fb47a0873d841de45d..8033da280ecfed59d31d2ceed878ee3c3c1155c8 100644
--- a/ansi-tests/gclload2.lsp
+++ b/ansi-tests/gclload2.lsp
@@ -117,3 +117,4 @@
 (load "string.lsp")
 (load "string-upcase.lsp")
 (load "string-downcase.lsp")
+(load "string-capitalize.lsp")
diff --git a/ansi-tests/string-capitalize.lsp b/ansi-tests/string-capitalize.lsp
new file mode 100644
index 0000000000000000000000000000000000000000..a25d87d8b320aace7ec30b37a1a1d877b8aad1fd
--- /dev/null
+++ b/ansi-tests/string-capitalize.lsp
@@ -0,0 +1,33 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Thu Oct  3 20:08:26 2002
+;;;; Contains: Tests for STRING-CAPITALIZE
+
+(in-package :cl-test)
+
+(deftest string-capitalize.1
+  (let ((s "abCd"))
+    (values (string-capitalize s) s))
+  "Abcd"
+  "abCd")
+
+
+(deftest string-capitalize.2
+  (let ((s "0adA2Cdd3wXy"))
+    (values (string-capitalize s) s))
+  "0adA2Cdd3wXy"
+  "0ada2cdd3wxy")
+
+(deftest string-capitalize.3
+  (let ((s "1a"))
+    (values (string-capitalize s) s))
+  "1a"
+  "1a")
+
+(deftest string-capitalize.4
+  (let ((s "a1a"))
+    (values (string-capitalize s) s))
+  "A1a"
+  "a1a")
+
+