diff -r f58f3b88c49e -r f901de70a80e lisp/lib/cli/clap/macs.lisp
--- a/lisp/lib/cli/clap/macs.lisp	Sun Sep 08 21:14:30 2024 -0400
+++ b/lisp/lib/cli/clap/macs.lisp	Tue Sep 10 21:26:30 2024 -0400
@@ -78,5 +78,7 @@
       `(defun ,fn-name (&optional arg)
          "Parse the cli-opt-val *ARG*."
          (declare (ignorable arg))
-         ,@(when fn1 `((setf *arg* (funcall #',fn1 arg))))
+         ,@(if fn1
+               `((setf *arg* (print (funcall #',fn1 arg))))
+               `((setf *arg* arg)))
          ,@body)))))