diff --git a/gnu/installer/newt/network.scm b/gnu/installer/newt/network.scm index 0477a489be..b11a55cb1f 100644 --- a/gnu/installer/newt/network.scm +++ b/gnu/installer/newt/network.scm @@ -122,10 +122,15 @@ FULL-VALUE tentatives, spaced by 1 second." (lambda _ #f)) (alarm 3)) (lambda () - (false-if-exception - (= (response-code - (http-request "https://ci.guix.gnu.org")) - 200))) + (or + (false-if-exception + (= (response-code + (http-request "https://ci.guix.gnu.org")) + 200)) + (false-if-exception + (= (response-code + (http-request "https://bordeaux.guix.gnu.org")) + 200)))) (lambda () (alarm 0))))