(list "--message" title
                     "--description" body)))

               (append
                (list "--message" title)
                (cond
                 (body (list "--description" body))))))