Fix bug in current-hostname-p

diff --git a/host.lisp b/host.lisp
index ca36b06..d066986 100644 (file)
--- 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*