01/01: guix: Fix system reconfigure.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix.

commit 945449b40b4343f1829dfd54aa85f8568711c890
Author: Ricardo Wurmus <address@hidden>
Date:   Thu Jun 21 16:54:06 2018 +0200

    guix: Fix system reconfigure.
    
    This is a follow-up to 378daa8cb677121e1893f9173af1db060720d6e4.
    
    * guix/scripts/system.scm (switch-to-system): Lower the script.
---
 guix/scripts/system.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index a3f0163..14aedce 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -3,6 +3,7 @@
 ;;; Copyright © 2016 Alex Kost <address@hidden>
 ;;; Copyright © 2016, 2017, 2018 Chris Marusich <address@hidden>
 ;;; Copyright © 2017 Mathieu Othacehe <address@hidden>
+;;; Copyright © 2018 Ricardo Wurmus <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -352,8 +353,8 @@ bring the system down."
                            #:optional (profile %system-profile))
   "Make a new generation of PROFILE pointing to the directory of OS, switch to
 it atomically, and then run OS's activation script."
-  (mlet* %store-monad ((drv    (operating-system-derivation os))
-                       (script (operating-system-activation-script os)))
+  (mlet* %store-monad ((drv (operating-system-derivation os))
+                       (script (lower-object 
(operating-system-activation-script os))))
     (let* ((system     (derivation->output-path drv))
            (number     (+ 1 (generation-number profile)))
            (generation (generation-file-name profile number)))