diff --git a/build-aux/build-self.scm b/build-aux/build-self.scm
index 25a7b1e618..64257bd54c 100644
--- a/build-aux/build-self.scm
+++ b/build-aux/build-self.scm
@@ -1,6 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2014, 2016, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
-;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
+;;; Copyright © 2021, 2022 Maxime Devos <maximedevos@telenet.be>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -265,6 +265,9 @@ interface (FFI) of Guile.")
   (define fake-git
     (scheme-file "git.scm" #~(define-module (git))))
 
+  (define fake-ice-9-exceptions
+    (scheme-file "exceptions.scm" #~(define-module (ice-9 exceptions))))
+
   (with-imported-modules `(((guix config)
                             => ,(make-config.scm))
 
@@ -279,6 +282,13 @@ interface (FFI) of Guile.")
                            ;; (git) to placate it.
                            ((git) => ,fake-git)
 
+                           ;; Pre-3.0 versions of Guile don't have (ice-9
+                           ;; exceptions) but (gnu packages racket) imports
+                           ;; it.  Provide a ‘good enough’ (ice-9 exceptions).
+                           ,@(if (string=? "2" (major-version guile-version))
+                                 `(((ice-9 exceptions) ,fake-ice-9-exceptions))
+                                 '())
+
                            ,@(source-module-closure `((guix store)
                                                       (guix self)
                                                       (guix ui)