((process-options (remaining-options &optional current-strings)
(if (not remaining-options)
(format nil
- (format nil "~~A~~{~~,,~A~~A~~}" command-width)
+ ; Then 1+ is for the space after the command
+ (format nil "~~A~~{~~%~~,,~A@A~~}" (1+ command-width))
(car (reverse current-strings))
(cdr (reverse current-strings)))
(let*