diff --git a/ansi-tests/load-pathnames.lsp b/ansi-tests/load-pathnames.lsp
index f9182d76c3ed09a22ffc460da10bf618c04e6919..c60833c5f537a8f6b22a3aec8cd8dae6416682aa 100644
--- a/ansi-tests/load-pathnames.lsp
+++ b/ansi-tests/load-pathnames.lsp
@@ -23,6 +23,8 @@
 (load "logical-pathname-translations.lsp")
 (load "translate-logical-pathname.lsp")
 
+(load "namestring.lsp")
+
 (load "wild-pathname-p.lsp")
 (load "merge-pathnames.lsp")
 (load "pathname-match-p.lsp")
diff --git a/ansi-tests/namestring.lsp b/ansi-tests/namestring.lsp
new file mode 100644
index 0000000000000000000000000000000000000000..79118c978d8c030f745080b9a249523ddd5cb15a
--- /dev/null
+++ b/ansi-tests/namestring.lsp
@@ -0,0 +1,25 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Thu Sep  2 07:24:42 2004
+;;;; Contains: Tests for NAMESTRING
+
+(in-package :cl-test)
+
+(deftest namestring.1
+  (let* ((vals (multiple-value-list (namestring "namestring.lsp")))
+	 (s (first vals)))
+    (if (and (null (cdr vals))
+	     (stringp s)
+	     (equal (namestring s) s))
+	:good
+      vals))
+  :good)
+
+(deftest namestring.2
+  (do-special-strings
+   (s "namestring.lsp" nil)
+   (let ((ns (namestring s)))
+     (assert (stringp ns))
+     (assert (string= (namestring ns) ns))))
+  nil)
+