diff --git a/host.lisp b/host.lisp
index ca36b0674f3a7cf1722dc811e379752eee15e9ad..d06698699b384594d88d1989b0d5d4ef4c8dc3bb 100644
--- a/host.lisp
+++ b/host.lisp
@@ -5,7 +5,7 @@
 (defparameter *current-host-names* '("localhost"))
 
 (defun current-host-name-p (x)
-  (and (stringp x) (member x *current-host-names*)))
+  (and (stringp x) (member x *current-host-names* :test 'equal)))
 
 (defun initialize-current-host-names ()
   (setf *current-host-names*