diff --git a/gnu/installer.scm b/gnu/installer.scm
index b3eb2a6b08..d64a66e09d 100644
--- a/gnu/installer.scm
+++ b/gnu/installer.scm
@@ -289,8 +289,8 @@ selected keymap."
                       (print-exception port
                                        (stack-ref (make-stack #t) 1)
                                        key args)))
-                  (primitive-exit 1))))
-            ((installer-exit current-installer))))))
+                  (primitive-exit 1)))
+              ((installer-exit current-installer)))))))
 
   (program-file
    "installer"