guile-gnome-platform: segfault on exit

[gregory benison]

$ guile-gnome-2
guile> (use-modules (gnome gtk))
WARNING: (gnome gtk): `re-export-modules' imported from both (gnome
gobject utils) and (gnome gw support modules)
guile> (quit)
Segmentation fault

+ Only happens when (gnome gtk) has been loaded; seems not to be
triggered by any of the other guile-gnome modules
+ occurs with guile-gnome-platform-2.16.1 and guile-1.8.8 (most recent
releases in my distro)
+ Since this happens during cleanup, doesn't affect any program while
it's running

Program received signal SIGSEGV, Segmentation fault.
0xb77b8e73 in suspend () at threads.c:388
(gdb) bt
#0  0xb77b8e73 in suspend () at threads.c:388
#1  0xb77b8ea9 in scm_leave_guile () at threads.c:398
#2  0xb77ba811 in scm_pthread_mutex_lock (mutex=0xb77e9e00) at threads.c:1481
#3  0xb775f928 in scm_gc_for_newcell (freelist=0xb77f0ab8,
free_cells=0x83000c4) at gc.c:484
#4  0xb7773ece in scm_cell (car=1919, cdr=0) at ../libguile/inline.h:122
#5  0xb77b910c in guilify_self_2 (parent=0xb7440f20) at threads.c:491
#6  0xb77b93ac in scm_i_init_thread_for_guile (base=0xbfa66df4,
parent=0xb7440f20) at threads.c:600
#7  0xb77b94d4 in scm_i_with_guile_and_parent (func=0xb7773b8e
<really_cleanup_for_exit>, data=0x0, parent=0xb7440f20) at
threads.c:732
#8  0xb77b94aa in scm_with_guile (func=0xb7773b8e
<really_cleanup_for_exit>, data=0x0) at threads.c:721
#9  0xb7773bd8 in cleanup_for_exit () at init.c:398