diff --git a/guix/modules.scm b/guix/modules.scm
index 77e1c2b6f4..74400ffacc 100644
--- a/guix/modules.scm
+++ b/guix/modules.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2016-2019, 2021-2022 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2016-2019, 2021-2022, 2024 Ludovic Courtès <ludo@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -104,7 +104,9 @@ (define file-name->module-name
     (lambda (file)
       "Return the module name (a list of symbols) corresponding to FILE."
       (map string->symbol
-           (string-tokenize (string-drop-right file 4) not-slash)))))
+           (match (string-tokenize (string-drop-right file 4) not-slash)
+             (("." . rest) rest)                  ;strip the leading "."
+             (lst lst))))))
 
 (define (module-name->file-name module)
   "Return the file name for MODULE."
diff --git a/tests/modules.scm b/tests/modules.scm
index e70d2d9e08..bb2c70e287 100644
--- a/tests/modules.scm
+++ b/tests/modules.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2016, 2017 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2016-2017, 2024 Ludovic Courtès <ludo@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -65,4 +65,12 @@ (define-module (test-modules)
        (source-module-closure '((baz)) (list directory)
                               #:select? (const #t))))))
 
+(test-equal "file-name->module-name"
+  '(guix foo)
+  (file-name->module-name "guix/foo.scm"))
+
+(test-equal "file-name->module-name, leading dot"
+  '(guix foo)
+  (file-name->module-name "./guix/foo.scm"))
+
 (test-end)