1 files changed, 2 insertions, 2 deletions

diff --git a/gc.c b/gc.c
index 41f0c6d2..088508d9 100644
--- a/gc.c
+++ b/gc.c
@@ -1321,13 +1321,13 @@ static struct cobj_ops prot_array_ops = cobj_ops_init(eq,
                                                       prot_array_mark,
                                                       cobj_eq_hash_op);
 
-val *gc_prot_array_alloc(cnum size)
+val *gc_prot_array_alloc(cnum size, val *obj)
 {
   struct prot_array *pa = coerce(struct prot_array *,
                                  chk_calloc(offsetof(struct prot_array, arr) +
                                             size * sizeof(val), 1));
   pa->size = size;
-  pa->self = cobj(coerce(mem_t *, pa), prot_array_cls, &prot_array_ops);
+  *obj = pa->self = cobj(coerce(mem_t *, pa), prot_array_cls, &prot_array_ops);
 
   return pa->arr;
 }