From cba363bea8b93d367d0e64e94a8b31ef91707329 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 24 May 2013 23:14:19 +0200
Subject: [PATCH] package: Fix default profile ownership check when it's just
 been created.

* guix/scripts/package.scm (guix-package)[ensure-default-profile]: Check
  whether S is true before checking its owner.  Fixes the case where we
  built %PROFILE-DIRECTORY just above.
---
 guix/scripts/package.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm
index e68d0dd902..cd93cc3758 100644
--- a/guix/scripts/package.scm
+++ b/guix/scripts/package.scm
@@ -644,7 +644,7 @@ more information.~%"))
             (rtfm))))
 
       ;; Bail out if it's not owned by the user.
-      (unless (= (stat:uid s) (getuid))
+      (unless (or (not s) (= (stat:uid s) (getuid)))
         (format (current-error-port)
                 (_ "error: directory `~a' is not owned by you~%")
                 %profile-directory)
-- 
2.20.1