diff --git a/pathnames/parse-namestring.lsp b/pathnames/parse-namestring.lsp
index 3c1993d06f76dc0ed48a1e0d73655079ead2eebd..03bd5ca42ee73e4ccf99b8843fe1acd010e5bc7f 100644
--- a/pathnames/parse-namestring.lsp
+++ b/pathnames/parse-namestring.lsp
@@ -76,8 +76,8 @@
   (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"))))
+         (or (equal namestring "CLTEST:TEMP.DAT.NEWEST")
+             (equal namestring "CLTEST:TEMP.DAT.newest"))))
   t)
 
 ;;; Error tests