diff --git a/racket/src/racket/gc2/newgc.c b/racket/src/racket/gc2/newgc.c index 4494298cd9..05e9f3b28d 100644 --- a/racket/src/racket/gc2/newgc.c +++ b/racket/src/racket/gc2/newgc.c @@ -4111,7 +4111,7 @@ inline static void do_heap_compact(NewGC *gc) /* then determine if we actually want to do compaction */ if(NO_BACKTRACE_AND(tic_tock ? should_compact_page(gcWORDS_TO_BYTES(work->live_size),work->size) - : mmu_should_compact_page(gc->mmu, work->mmu_src_block))) { + : mmu_should_compact_page(gc->mmu, &work->mmu_src_block))) { void **start = PAGE_START_VSS(work); void **end = PAGE_END_VSS(work); void **newplace;