diff --git a/guix/status.scm b/guix/status.scm index fd89ba9dd3..0ed6d3318a 100644 --- a/guix/status.scm +++ b/guix/status.scm @@ -494,8 +494,8 @@ (define* (print-build-event event old-status status (let ((count (match (assq-ref properties 'graft) (#f 0) (lst (or (assq-ref lst 'count) 0))))) - (format port (info (N_ "applying ~a graft for ~a ..." - "applying ~a grafts for ~a ..." + (format port (info (N_ "applying ~a graft for ~a..." + "applying ~a grafts for ~a..." count)) count (string-drop-right (store-path-package-name drv)