diff --git a/libguile/arbiters.c b/libguile/arbiters.c index 292f4fec1..4c5b966c7 100644 --- a/libguile/arbiters.c +++ b/libguile/arbiters.c @@ -84,8 +84,10 @@ scm_make_arbiter (name) { register SCM z; SCM_NEWCELL (z); + SCM_DEFER_INTS; SCM_SETCDR (z, name); SCM_SETCAR (z, scm_tc16_arbiter); + SCM_ALLOW_INTS; return z; }