1 files changed, 1 insertions, 1 deletions
diff --git a/distro.scm b/distro.scm
index 79e09a3cc6..fc48285bbf 100644
--- a/distro.scm
+++ b/distro.scm
@@ -53,7 +53,7 @@
 (define (package-files)
   "Return the list of files that implement distro modules."
   (define prefix-len
-    (string-length (dirname %distro-module-directory)))
+    (string-length (dirname (search-path %load-path "distro.scm"))))
 
   (file-system-fold (const #t)                    ; enter?
                     (lambda (path stat result)    ; leaf