diff --git a/guix/build/utils.scm b/guix/build/utils.scm
index 6005813f77..148f62ec51 100644
--- a/guix/build/utils.scm
+++ b/guix/build/utils.scm
@@ -98,10 +98,11 @@ (define* (set-path-environment-variable env-var sub-directories input-dirs
                                  '(\"lib/pkgconfig\")
                                  (list package1 package2))
 "
-  (setenv env-var
-          (list->search-path-as-string (search-path-as-list sub-directories
-                                                            input-dirs)
-                                       separator)))
+  (let* ((path  (search-path-as-list sub-directories input-dirs))
+         (value (list->search-path-as-string path separator)))
+   (setenv env-var value)
+   (format #t "environment variable `~a' set to `~a'~%"
+           env-var value)))
 
 
 ;;;