diff --git a/ChangeLog b/ChangeLog
index 54deda3d2..74200742b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -10,6 +10,9 @@
* src/jlib.erl: Add function short_bare_jid/1.
+ * src/ejabberd_sm.erl: Forgot to convert a from the new to
+ the old record.
+
2008-06-30 Jean-Sébastien Pédron
* src/Makefile.in: Remove the -I flag for exmpp includes; the
diff --git a/src/ejabberd_sm.erl b/src/ejabberd_sm.erl
index acb18341f..8ca59bfbc 100644
--- a/src/ejabberd_sm.erl
+++ b/src/ejabberd_sm.erl
@@ -190,8 +190,11 @@ get_user_info(User, Server, Resource) ->
set_presence(SID, User, Server, Resource, Priority, Presence, Info) ->
set_session(SID, User, Server, Resource, Priority, Info),
+ % XXX OLD FORMAT: Presence.
+ PresenceOld = exmpp_xml:xmlel_to_xmlelement(Presence,
+ [?DEFAULT_NS], ?PREFIXED_NS),
ejabberd_hooks:run(set_presence_hook, exmpp_stringprep:nameprep(Server),
- [User, Server, Resource, Presence]).
+ [User, Server, Resource, PresenceOld]).
unset_presence(SID, User, Server, Resource, Status, Info) ->
set_session(SID, User, Server, Resource, undefined, Info),