Correctly set gen_server's name

diff --git a/src/mod_muc_mnesia.erl b/src/mod_muc_mnesia.erl
index 14c048863104f606d61aa8d27e6ca756cb94e681..e73c31bcd24386ba6d4e5d442d9812c66ecd535f 100644 (file)
--- a/src/mod_muc_mnesia.erl
+++ b/src/mod_muc_mnesia.erl
@@ -35,7 +35,8 @@
 %%% API
 %%%===================================================================
 init(Host, Opts) ->
-    case gen_server:start_link({local, ?MODULE}, ?MODULE, [Host, Opts], []) of
+    Name = gen_mod:get_module_proc(Host, ?MODULE),
+    case gen_server:start_link({local, Name}, ?MODULE, [Host, Opts], []) of
        {ok, _Pid} ->
            ok;
        Err ->