diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
index 1f6d1d0c36b83a98f3e12e38fd7ddf3030a615a5..43991d10348f4410023e709b7dd35ca2ffdf0388 100644
--- a/gnu/packages/fonts.scm
+++ b/gnu/packages/fonts.scm
@@ -525,13 +525,11 @@ (define-public font-wqy-microhei
          (let ((PATH (string-append (assoc-ref %build-inputs "tar")  "/bin:"
                                     (assoc-ref %build-inputs "gzip") "/bin"))
                (font-dir (string-append (assoc-ref %outputs "out")
-                                        "/share/fonts/wenquanyi/")))
-           (setenv "PATH" PATH)
+                                        "/share/fonts/wenquanyi")))
            (mkdir-p font-dir)
+           (setenv "PATH" PATH)
            (system* "tar" "xvf" (assoc-ref %build-inputs "source"))
-           (chdir "wqy-microhei")
-           (copy-file "wqy-microhei.ttc"
-                      (string-append font-dir "wqy-microhei.ttc"))))))
+           (install-file "wqy-microhei/wqy-microhei.ttc" font-dir)))))
     (native-inputs
      `(("gzip" ,gzip)
        ("tar" ,tar)))
@@ -760,8 +758,7 @@ (define-public font-google-roboto
                      (mkdir-p font-dir)
                      (chdir "roboto-hinted")
                      (for-each (lambda (ttf)
-                                 (copy-file ttf
-                                            (string-append font-dir "/" ttf)))
+                                 (install-file ttf font-dir))
                                (find-files "." "\\.ttf$"))))))
     (home-page "https://github.com/google/roboto")
     (synopsis "The Roboto family of fonts")