diff --git a/ChangeLog b/ChangeLog
index dff2cd6d2..264c32133 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2008-03-15  Mickael Remond  <mremond@process-one.net>
+
+	* src/ejabberd_s2s.erl: API improvement: Added s2s_connect_hook
+	(EJAB-566).
+
 2008-03-13  Badlop  <badlop@process-one.net>
 
 	* src/odbc/ejabberd_odbc.erl: Start ODBC explicitely because
diff --git a/src/ejabberd_s2s.erl b/src/ejabberd_s2s.erl
index eebee741b..59ce83205 100644
--- a/src/ejabberd_s2s.erl
+++ b/src/ejabberd_s2s.erl
@@ -359,6 +359,7 @@ new_connection(MyServer, Server, From, FromTo,
     TRes = mnesia:transaction(F),
     case TRes of
 	{atomic, Pid} ->
+	    ejabberd_hooks:run(s2s_connect_hook, [MyServer, Server]),
 	    ejabberd_s2s_out:start_connection(Pid);
 	_ ->
 	    ejabberd_s2s_out:stop_connection(Pid)