diff --git a/src/procedure2/ObjectPrimitives.cpp b/src/procedure2/ObjectPrimitives.cpp
index 36dd2a3..367a0bc 100644
--- a/src/procedure2/ObjectPrimitives.cpp
+++ b/src/procedure2/ObjectPrimitives.cpp
@@ -133,7 +133,7 @@ namespace xo {
             assert(!cell->is_empty());
 
             if (!cell->is_empty()) {
-                cell->assign_head(rcx.collector(), dest);
+                cell->assign_head(rcx.allocator(), dest);
             }
 
             return cell;