diff --git a/ChangeLog b/ChangeLog
index 2d11ae76e..9790c6b9e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,6 +3,10 @@
 	* src/web/ejabberd_web_admin.erl, src/ejabberd_listener.erl: Fix some
 	eDoc @spec directives.
 
+	* src/ejabberd_sm.erl (get_vh_session_list/1): Remove a bad
+	list_to_binary/1; now that exmpp_stringprep return the correct type,
+	it was used on a binary().
+
 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_sm.erl b/src/ejabberd_sm.erl
index 1cdaf92bd..3d3190620 100644
--- a/src/ejabberd_sm.erl
+++ b/src/ejabberd_sm.erl
@@ -241,8 +241,7 @@ dirty_get_my_sessions_list() ->
 	['$_']}]).
 
 get_vh_session_list(Server) when is_binary(Server) ->
-    LServer = list_to_binary(
-                   exmpp_stringprep:nameprep(Server)),
+    LServer = exmpp_stringprep:nameprep(Server),
     mnesia:dirty_select(
       session,
       [{#session{usr = '$1', _ = '_'},