Make sure that root-dir is absolute.

diff --git a/dist/update-copyright.scm b/dist/update-copyright.scm
index da8b64ae58e05fe4aabcf9c3d54abdbdbf17dc84..9ae2c59c5b7c8f624e0ab625fd23e7cd6202810a 100644 (file)
--- a/dist/update-copyright.scm
+++ b/dist/update-copyright.scm
@@ -29,7 +29,7 @@ USA.
 (declare (usual-integrations))
 
 (define (translate-standard-dirs root-dir translation)
-  (let* ((root-dir (pathname-as-directory root-dir))
+  (let* ((root-dir (merge-pathnames (pathname-as-directory root-dir)))
         (target (merge-pathnames "translated-files" root-dir))
         (target-dir (pathname-as-directory target)))
     (make-directory target)