diff --git a/ChangeLog b/ChangeLog
index 1448de1b6..40139db7d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2008-03-10  Badlop  <badlop@process-one.net>
+
+	* src/ejabberd_update.erl: Fix crash when browsing the Update
+	page in Erlang R12 (EJAB-552)
+
 2008-03-09  Alexey Shchepin  <alexey@process-one.net>
 
 	* src/web/ejabberd_http_poll.erl: Fixed HTTP headers when a
diff --git a/src/ejabberd_update.erl b/src/ejabberd_update.erl
index a9cefd066..ef3c4a47a 100644
--- a/src/ejabberd_update.erl
+++ b/src/ejabberd_update.erl
@@ -55,12 +55,12 @@ update_info() ->
 	    UpdatedBeams =
 		lists:filter(
 		  fun(Module) ->
-			  {ok, {Module, [NewVsn]}} =
+			  {ok, {Module, NewVsn}} =
 			      beam_lib:version(code:which(Module)),
 			  case code:is_loaded(Module) of
 			      {file, _} ->
 				  Attrs = Module:module_info(attributes),
-				  {value, {vsn, [CurVsn]}} =
+				  {value, {vsn, CurVsn}} =
 				      lists:keysearch(vsn, 1, Attrs),
 				  NewVsn /= CurVsn;
 			      false ->