diff --git a/gnu/build/activation.scm b/gnu/build/activation.scm index d1a2876a961..a450578c247 100644 --- a/gnu/build/activation.scm +++ b/gnu/build/activation.scm @@ -113,7 +113,9 @@ and bits are set according to the default behaviour of 'mkdir'." ;; If not, create it. (catch 'system-error (lambda _ - (mkdirat root head)) + (if (null? tail) + (mkdirat root head bits) + (mkdirat root head))) (lambda args ;; Someone else created the directory. Unexpected but fine. (unless (= EEXIST (system-error-errno args))