diff --git a/ChangeLog b/ChangeLog
index c40f7c383..2d11ae76e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2009-01-22  Jean-Sébastien Pédron  <js.pedron@meetic-corp.com>
+
+	* src/web/ejabberd_web_admin.erl, src/ejabberd_listener.erl: Fix some
+	eDoc @spec directives.
+
 2009-01-21  Jean-Sébastien Pédron  <js.pedron@meetic-corp.com>
 
 	* src/acl.erl (match_acl/3): Use string() version of
diff --git a/src/ejabberd_listener.erl b/src/ejabberd_listener.erl
index cd5ca0898..03948120f 100644
--- a/src/ejabberd_listener.erl
+++ b/src/ejabberd_listener.erl
@@ -287,12 +287,13 @@ add_listener(PortIP, Module, Opts) ->
 	    {error, Error}
     end.
   
-%% @spec (PortIP) -> ok
+%% @spec (PortIP, Module) -> ok
 %% where
 %%      PortIP = {Port, IPT | IPS}
 %%      Port = integer()
 %%      IPT = tuple()
 %%      IPS = string()
+%%      Module = atom()
 delete_listener(PortIP, Module) ->
     Ports = case ejabberd_config:get_local_option(listen) of
 		undefined ->
diff --git a/src/web/ejabberd_web_admin.erl b/src/web/ejabberd_web_admin.erl
index dc3f7201b..ef68160d5 100644
--- a/src/web/ejabberd_web_admin.erl
+++ b/src/web/ejabberd_web_admin.erl
@@ -1069,7 +1069,7 @@ term_to_string(T) ->
     {ok, StringLine, _} = regexp:gsub(StringParagraph, "\\n ", ""),
     StringLine.
 
-%% @spec (T::any()) -> {NumLines::integer(), Paragraph::string()}
+%% @spec (T::any(), Cols::integer()) -> {NumLines::integer(), Paragraph::string()}
 term_to_paragraph(T, Cols) ->
 	Paragraph = erl_prettypr:format(erl_syntax:abstract(T), [{paper, Cols}]),
 	{ok, FieldList} = regexp:split(Paragraph, "\n"),