diff --git a/ChangeLog b/ChangeLog
index 7f56c26f0..c8c2c575e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2009-02-13  Christophe Romain <christophe.romain@process-one.net>
+
+	* src/ejabberd_auth.erl: prevent from calling
+	get_vh_registered_users/2 when not available
+
 2009-01-13  Badlop  <badlop@process-one.net>
 
 	* doc/release_notes_2.0.3.txt: Minor changes
diff --git a/src/ejabberd_auth.erl b/src/ejabberd_auth.erl
index b6c11290c..8578142e0 100644
--- a/src/ejabberd_auth.erl
+++ b/src/ejabberd_auth.erl
@@ -187,7 +187,13 @@ get_vh_registered_users(Server) ->
 get_vh_registered_users(Server, Opts) ->
     lists:flatmap(
       fun(M) ->
-	      M:get_vh_registered_users(Server, Opts)
+		case erlang:function_exported(
+		       M, get_vh_registered_users, 2) of
+		    true ->
+			M:get_vh_registered_users(Server, Opts);
+		    false ->
+			M:get_vh_registered_users(Server)
+		end
       end, auth_modules(Server)).
 
 get_vh_registered_users_number(Server) ->