diff --git a/src/gtkutil.c b/src/gtkutil.c

index 44f828c..d434a48 100644

--- a/src/gtkutil.c

+++ b/src/gtkutil.c

@@ -784,6 +784,14 @@ xg_hide_tooltip (FRAME_PTR f)

     General functions for creating widgets, resizing, events, e.t.c.

  ***********************************************************************/

+static void

+my_log_handler (const gchar *log_domain, GLogLevelFlags log_level,

+                        const gchar *msg, gpointer user_data)

+{

+    if (!strstr (msg, "visible children"))

+        fprintf (stderr, "XX %s-WARNING **: %s\n", log_domain, msg);

+}

+

 /* Make a geometry string and pass that to GTK.  It seems this is the

    only way to get geometry position right if the user explicitly

    asked for a position when starting Emacs.

@@ -799,6 +807,7 @@ xg_set_geometry (FRAME_PTR f)

       int top = f->top_pos;

       int yneg = f->size_hint_flags & YNegative;

       char geom_str[sizeof "=x--" + 4 * INT_STRLEN_BOUND (int)];

+      guint id;

       if (xneg)

         left = -left;

@@ -811,9 +820,15 @@ xg_set_geometry (FRAME_PTR f)

                (xneg ? '-' : '+'), left,

                (yneg ? '-' : '+'), top);

+      /* Silence warning about visible children.  */

+      id = g_log_set_handler ("Gtk", G_LOG_LEVEL_WARNING | G_LOG_FLAG_FATAL

+                              | G_LOG_FLAG_RECURSION, my_log_handler, NULL);

+

       if (!gtk_window_parse_geometry (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f)),

                                       geom_str))

         fprintf (stderr, "Failed to parse: '%s'\n", geom_str);

+

+      g_log_remove_handler ("Gtk", id);

     }

 }