diff --git a/guix/derivations.scm b/guix/derivations.scm
index b2a5c6b976e4a3c00c47cd5954075215dcc22da8..b1ba57319062396ab01060c2892c9d0e6c56c9a4 100644
--- a/guix/derivations.scm
+++ b/guix/derivations.scm
@@ -1045,7 +1045,7 @@ (define build
 
        (let ((mapping ',mapping))
          (for-each (lambda (input output)
-                     (format #t "rewriting '~a' to '~a'...~%" input output)
+                     (format #t "grafting '~a' -> '~a'...~%" input output)
                      (rewrite-directory input output
                                         `((,input . ,output)
                                           ,@mapping)))