diff --git a/gnu/installer/services.scm b/gnu/installer/services.scm index b208a20138..1ef82c9651 100644 --- a/gnu/installer/services.scm +++ b/gnu/installer/services.scm @@ -5,6 +5,7 @@ ;;; Copyright © 2021 Tobias Geerinckx-Rice ;;; Copyright © 2021 Leo Famulari ;;; Copyright © 2023 Denys Nykula +;;; Copyright © 2025 Florian Pelz ;;; ;;; This file is part of GNU Guix. ;;; @@ -194,7 +195,8 @@ (if (target-hurd?) '%base-services/hurd '%base-services))) - (native-console-font (match (getenv "LANGUAGE") + (native-console-font (match (false-if-exception + (string-take (getenv "LANGUAGE") 2)) ((or "be" "bg" "el" "eo" "kk" "ky" "mk" "mn" "ru" "sr" "tg" "uk") "LatGrkCyr-8x16")