diff --git a/eval.lisp b/eval.lisp
index 36984a3..e3635cf 100644
--- a/eval.lisp
+++ b/eval.lisp
@@ -46,7 +46,7 @@ and the maximum number (or nil for infinity) as a second value."
 
 (defun logical-xor (&rest args)
   "Logical xor (not equal) each argument in turn with its following argument."
-  (eql 1 (count-if #'identity args)))
+  (oddp (count-if #'identity args)))
 
 (defun logical-and (&rest args)
   "Logical and (all true)."