diff --git a/src/mailman3-sql.scm b/src/mailman3-sql.scm
index 3829db0..a9a0fc8 100644
--- a/src/mailman3-sql.scm
+++ b/src/mailman3-sql.scm
@@ -45,7 +45,7 @@
  ;; Returns (possibly cached) SQLite3 DB handle
  (define (mailman3-db)
    (when (not (*cached-mailman3-db*))
-     (*cached-mailman3-db* (open-database "mailman.db")))
+     (*cached-mailman3-db* (open-database (*mailman3-sql-path*))))
    (*cached-mailman3-db*))
 
  ;; Returns the list of mailman3 mailinglists by querying te