diff --git a/src/c/alloc_2.d b/src/c/alloc_2.d index f22cdfe70..ef5a0fd1e 100644 --- a/src/c/alloc_2.d +++ b/src/c/alloc_2.d @@ -268,7 +268,10 @@ allocate_object_own(register struct ecl_type_information *type_info) if( (op = *opp) == 0 ) { UNLOCK(); op = (ptr_t)GENERAL_MALLOC((word)lb, cl_object_kind); - if (0 == op) return 0; + if (0 == op){ + ecl_enable_interrupts_env(the_env); + return 0; + } lg = GC_size_map[lb]; /* May have been uninitialized. */ } else { *opp = obj_link(op);