diff --git a/arguments.lisp b/arguments.lisp
index 339eaee..239b4a6 100644
--- a/arguments.lisp
+++ b/arguments.lisp
@@ -149,7 +149,7 @@ arguments will be placed in a list at the beginning of the alist."
         do
            (format stream "  ~v@<~@[-~c~]~@[, ~*~]~@[--~a~]~@[=<arg>~*~]~>  ~a~%"
                    longest-option
-                   short (or short long) long has-arg-p desc))
+                   short (and short long) long has-arg-p desc))
   (format stream
 "~%~@[The choice surrounded by '*' is the default. ~]Arguments to long~:[ ~;~%~]~
 options are also required for their short variant.~%" print-astrisk print-astrisk))