diff --git a/ansi-tests/host-namestring.lsp b/ansi-tests/host-namestring.lsp
index 7dd8e6e777686848cdda82a7f81467628f1ddda6..274b1f5a28cc8b5f177a8cd7499109944ca1a807 100644
--- a/ansi-tests/host-namestring.lsp
+++ b/ansi-tests/host-namestring.lsp
@@ -11,7 +11,9 @@
 	 (s (first vals)))
     (if (and (null (cdr vals))
 	     (or (null s)
-		 (equal (host-namestring s) s)))
+		 (stringp s)
+		 ;; (equal (host-namestring s) s)
+		 ))
 	:good
       vals))
   :good)
@@ -22,7 +24,8 @@
    (let ((ns (host-namestring s)))
      (when ns
        (assert (stringp ns))
-       (assert (string= (host-namestring ns) ns)))))
+       ;; (assert (string= (host-namestring ns) ns))
+       )))
   nil)
 
 (deftest host-namestring.3