diff --git a/ChangeLog b/ChangeLog
index 1218515a5..7ab310ee8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2009-03-03  Badlop  <badlop@process-one.net>
 
+	* src/ejabberd_listener.erl: Fix a minor compilation warning and
+	add EDoc comment
+
 	* src/ejabberd_listener.erl: When stopping a listener, don't stop
 	the listener supervisor (EJAB-874)
 
diff --git a/src/ejabberd_listener.erl b/src/ejabberd_listener.erl
index 4a75a7cb4..3c3221257 100644
--- a/src/ejabberd_listener.erl
+++ b/src/ejabberd_listener.erl
@@ -258,9 +258,16 @@ start_listener_sup(Port, Module, Opts) ->
 		 [?MODULE]},
     supervisor:start_child(ejabberd_listeners, ChildSpec).
 
-stop_listener(Port, Module) ->
-    supervisor:terminate_child(ejabberd_listeners, Port),
-    supervisor:delete_child(ejabberd_listeners, Port).
+%% @spec (PortIP, Module) -> ok
+%% where
+%%      PortIP = {Port, IPT | IPS}
+%%      Port = integer()
+%%      IPT = tuple()
+%%      IPS = string()
+%%      Module = atom()
+stop_listener(PortIP, _Module) ->
+    supervisor:terminate_child(ejabberd_listeners, PortIP),
+    supervisor:delete_child(ejabberd_listeners, PortIP).
 
 %% @spec (PortIP, Module, Opts) -> {ok, Pid} | {error, Error}
 %% where