diff --git a/src/server/ocsigen_server.ml b/src/server/ocsigen_server.ml
index 002889d71..ca8c24919 100644
--- a/src/server/ocsigen_server.ml
+++ b/src/server/ocsigen_server.ml
@@ -155,6 +155,8 @@ module Site = struct
         let path, hosts = path_and_hosts s in
         path @ path', hosts
 
+  let config_info {s_config_info; _} = s_config_info
+
   let create ?(config_info = Ocsigen_extensions.default_config_info ())
       ?(id = `Host (default_re_string, None)) ?charset ()
     =
diff --git a/src/server/ocsigen_server.mli b/src/server/ocsigen_server.mli
index b49238081..4229fe3e0 100644
--- a/src/server/ocsigen_server.mli
+++ b/src/server/ocsigen_server.mli
@@ -36,6 +36,12 @@ module Site : sig
 
   val repr : t -> Ocsigen_loader.site
 
+  val path_and_hosts :
+     t
+    -> Ocsigen_lib.Url.path * Ocsigen_extensions.virtual_hosts
+
+  val config_info : t -> Ocsigen_extensions.config_info
+
   val create :
      ?config_info:Ocsigen_extensions.config_info
     -> ?id:[`Attach of t * Ocsigen_lib.Url.path | `Host of string * int option]