diff --git a/src/ChangeLog b/src/ChangeLog
index 352a7239acf..69c8f22e700 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2009-12-15  Michael Albinus  <michael.albinus@gmx.de>
+
+	* dbusbind.c (xd_retrieve_arg): Reorder declarations in order to
+	avoid compiler warnings.  (Bug #5217).
+
 2009-12-14  Kenichi Handa  <handa@m17n.org>
 
 	* coding.c (decode_coding_iso_2022): Ignore ISO_CODE_SS2_7 (0x19)
diff --git a/src/dbusbind.c b/src/dbusbind.c
index d83ef4a5966..7c0be49ab77 100644
--- a/src/dbusbind.c
+++ b/src/dbusbind.c
@@ -688,10 +688,10 @@ xd_retrieve_arg (dtype, iter)
       {
 	Lisp_Object result;
 	struct gcpro gcpro1;
-	result = Qnil;
-	GCPRO1 (result);
 	DBusMessageIter subiter;
 	int subtype;
+	result = Qnil;
+	GCPRO1 (result);
 	dbus_message_iter_recurse (iter, &subiter);
 	while ((subtype = dbus_message_iter_get_arg_type (&subiter))
 	       != DBUS_TYPE_INVALID)