--- a/guix/scripts/perform-download.scm.orig	2019-05-03 14:25:15.000000000 +0200
+++ b/guix/scripts/perform-download.scm	2019-09-02 17:59:19.000000000 +0200
@@ -86,10 +86,10 @@
         (when (and executable (string=? executable "1"))
           (chmod output #o755))))))
 
-(define (assert-low-privileges)
-  (when (zero? (getuid))
-    (leave (G_ "refusing to run with elevated privileges (UID ~a)~%")
-           (getuid))))
+;;(define (assert-low-privileges)
+;;  (when (zero? (getuid))
+;;    (leave (G_ "refusing to run with elevated privileges (UID ~a)~%")
+;;           (getuid))))
 
 (define (guix-perform-download . args)
   "Perform the download described by the given fixed-output derivation.
@@ -112,12 +112,12 @@
   (with-error-handling
     (match args
       (((? derivation-path? drv) (? store-path? output))
-       (assert-low-privileges)
+;;       (assert-low-privileges)
        (perform-download (read-derivation-from-file drv)
                          output
                          #:print-build-trace? print-build-trace?))
       (((? derivation-path? drv))                 ;backward compatibility
-       (assert-low-privileges)
+;;       (assert-low-privileges)
        (perform-download (read-derivation-from-file drv)
                          #:print-build-trace? print-build-trace?))
       (("--version")