diff --git a/pathnames/parse-namestring.lsp b/pathnames/parse-namestring.lsp
index 496527d3c15b0417faac3d1e786afc70009db183..3c1993d06f76dc0ed48a1e0d73655079ead2eebd 100644
--- a/pathnames/parse-namestring.lsp
+++ b/pathnames/parse-namestring.lsp
@@ -72,6 +72,14 @@
             (list (list etype result)))))
   nil)
 
+(deftest parse-namestring.5
+  (let* ((pathname (parse-namestring "cltest:temp.dat.newest"))
+         (namestring (namestring pathname)))
+    (and (typep pathname 'logical-pathname)
+         (or (equal namestring "CLSTEST:TEMP.DAT.NEWEST")
+             (equal namestring "CLSTEST:TEMP.DAT.newest"))))
+  t)
+
 ;;; Error tests
 
 (deftest parse-namestring.error.1