diff --git a/guix/scripts/describe.scm b/guix/scripts/describe.scm
index e59502076cbddb4d93bc48dcbc04705095279e88..d3203e99241365b226293ca2700099df8fd4b263 100644
--- a/guix/scripts/describe.scm
+++ b/guix/scripts/describe.scm
@@ -40,7 +40,7 @@ (define %options
                 (lambda (opt name arg result)
                   (unless (member arg '("human" "channels"))
                     (leave (G_ "~a: unsupported output format~%") arg))
-                  (alist-cons 'format 'channels result)))
+                  (alist-cons 'format (string->symbol arg) result)))
         (option '(#\h "help") #f #f
                 (lambda args
                   (show-help)