Here is the git diff:

diff --git a/corba/gnome/corba/guile-gnome-corba-types.c b/corba/gnome/corba/guile-gnome-corba-types.c
index b23381b..3bde4fc 100644
--- a/corba/gnome/corba/guile-gnome-corba-types.c
+++ b/corba/gnome/corba/guile-gnome-corba-types.c
@@ -821,8 +821,7 @@ scm_init_gnome_corba_types (void)
 
     gsubr = scm_c_make_gsubr ("%print-corba-struct", 2, 0, 0, print_corba_struct);
     scm_corba_struct_vtable = scm_permanent_object
-        (scm_make_vtable_vtable (scm_from_locale_string ("srprprprpopopW"),
-                                scm_from_int (0), SCM_LIST1 (gsubr)));
+        (scm_make_vtable (scm_from_locale_string ("srprprprpopopW"), SCM_LIST1 (gsubr)));
     SCM_SET_CORBA_STRUCT_TYPECODE (scm_corba_struct_vtable, TC_CORBA_TypeCode);
     scm_c_define ("%corba-struct-vtable", scm_corba_struct_vtable);
     scm_c_define ("%corba-struct-vtable-offset-user", scm_from_int (scm_corba_struct_vtable_offset_user));
@@ -830,8 +829,7 @@ scm_init_gnome_corba_types (void)
 
     gsubr = scm_c_make_gsubr ("%print-corba-sequence", 2, 0, 0, print_corba_sequence);
     scm_corba_sequence_vtable = scm_permanent_object
-        (scm_make_vtable_vtable (scm_from_locale_string ("srprprprpopW"),
-                                scm_from_int (0), SCM_LIST1 (gsubr)));
+        (scm_make_vtable (scm_from_locale_string ("srprprprpopW"), SCM_LIST1 (gsubr)));
     SCM_SET_CORBA_SEQUENCE_TYPECODE (scm_corba_sequence_vtable, TC_CORBA_TypeCode);
     scm_c_define ("%corba-sequence-vtable", scm_corba_sequence_vtable);
     scm_c_define ("%corba-sequence-vtable-offset-user", scm_from_int (scm_corba_sequence_vtable_offset_user));

_but_ it crashes the corba test suite:

make[2]: Entering directory '/usr/local/src/guile-gnome/git-clone/corba/tests'
make  check-TESTS
make[3]: Entering directory '/usr/local/src/guile-gnome/git-clone/corba/tests'
make[4]: Entering directory '/usr/local/src/guile-gnome/git-clone/corba/tests'
../../build-aux/test-driver: line 107: 27259 Segmentation fault      "$@" > $log_file 2>&1
FAIL: wrapset.scm
make[5]: Entering directory '/usr/local/src/guile-gnome/git-clone/corba/tests'
make[5]: Nothing to be done for 'all'.
make[5]: Leaving directory '/usr/local/src/guile-gnome/git-clone/corba/tests'
============================================================================
Testsuite summary for guile-gnome-platform 2.16.2
============================================================================
# TOTAL: 1
# PASS:  0
# SKIP:  0
# XFAIL: 0
# FAIL:  1
# XPASS: 0
# ERROR: 0
============================================================================
See corba/tests/test-suite.log
============================================================================
Makefile:581: recipe for target 'test-suite.log' failed
make[4]: *** [test-suite.log] Error 1
make[4]: Leaving directory '/usr/local/src/guile-gnome/git-clone/corba/tests'
Makefile:687: recipe for target 'check-TESTS' failed
make[3]: *** [check-TESTS] Error 2
make[3]: Leaving directory '/usr/local/src/guile-gnome/git-clone/corba/tests'
Makefile:753: recipe for target 'check-am' failed
make[2]: *** [check-am] Error 2
make[2]: Leaving directory '/usr/local/src/guile-gnome/git-clone/corba/tests'
Makefile:389: recipe for target 'check-recursive' failed
make[1]: *** [check-recursive] Error 1
make[1]: Leaving directory '/usr/local/src/guile-gnome/git-clone/corba'
Makefile:446: recipe for target 'check-recursive' failed
make: *** [check-recursive] Error 1
david@capac:/usr/local/src/guile-gnome/git-clone 280 $