From 801486fe46b288338de6ed542c70acade45aac9a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 17 Apr 2013 18:02:48 +0200
Subject: [PATCH] ui: Fix format string in `warning'.

* guix/ui.scm (warning)[augmented-format-string]: Add missing ~*.
---
 guix/ui.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/guix/ui.scm b/guix/ui.scm
index db0711bb61..938b5d259c 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -381,7 +381,7 @@ WIDTH columns."
     ;; All this just to preserve `-Wformat' warnings.  Too much?
 
     (define (augmented-format-string fmt)
-      (string-append "~:[~;guix ~a: ~]~a" (syntax->datum fmt)))
+      (string-append "~:[~*~;guix ~a: ~]~a" (syntax->datum fmt)))
 
     (define prefix
       #'(_ "warning: "))