diff -Nru guile-1.8.3.orig/libguile/goops.c guile-1.8.3/libguile/goops.c --- guile-1.8.3.orig/libguile/goops.c 2007-07-11 00:27:36.000000000 +0200 +++ guile-1.8.3/libguile/goops.c 2008-02-20 13:47:33.000000000 +0100 @@ -2870,7 +2870,7 @@ scm_list_1 (slot)))); { SCM n = SCM_SLOT (class, scm_si_nfields); - SCM gns = scm_list_n (name, SCM_BOOL_F, get, set, n, scm_from_int (1)); + SCM gns = scm_list_n (name, SCM_BOOL_F, get, set, n, scm_from_int (1), SCM_UNDEFINED); SCM_SET_SLOT (class, scm_si_getters_n_setters, scm_append_x (scm_list_2 (SCM_SLOT (class, scm_si_getters_n_setters), scm_list_1 (gns))));