diff --git a/mod_webpresence/src/mod_webpresence.erl b/mod_webpresence/src/mod_webpresence.erl
index 7a58013..abd366a 100644
--- a/mod_webpresence/src/mod_webpresence.erl
+++ b/mod_webpresence/src/mod_webpresence.erl
@@ -614,7 +614,7 @@ get_presences({xml, LUser, LServer, Show_us}) ->
                                attrs = [
                                         {<<"name">>, Presence#presence2.resource},
                                         {<<"show">>, Presence#presence2.show},
-                                        {<<"priority">>, iolist_to_binary(integer_to_list(Presence#presence2.priority))}
+                                        {<<"priority">>, intund2string(Presence#presence2.priority)}
                                        ],
                                children = [{xmlcdata, Presence#presence2.status}]
                               }
@@ -711,7 +711,7 @@ long_show(<<"xa">>, Lang) -> ?T(<<"extended away">>);
 long_show(<<"dnd">>, Lang) -> ?T(<<"do not disturb">>);
 long_show(_, Lang) -> ?T(<<"unavailable">>).
 
-intund2string(undefined) -> <<"undefined">>;
+intund2string(undefined) -> intund2string(0);
 intund2string(Int) when is_integer(Int) -> list_to_binary(integer_to_list(Int)).
 
 escape(S1) ->