diff --git a/vm/full_collector.cpp b/vm/full_collector.cpp
index 4edb23cf73..188ab55efc 100644
--- a/vm/full_collector.cpp
+++ b/vm/full_collector.cpp
@@ -127,7 +127,11 @@ void factor_vm::collect_full(bool trace_contexts_p)
 	collect_mark_impl(trace_contexts_p);
 	collect_sweep_impl();
 	if(data->low_memory_p())
+	{
+		current_gc->op = collect_compact_op;
+		current_gc->event->op = collect_compact_op;
 		collect_compact_impl(trace_contexts_p);
+	}
 	else
 		update_code_heap_words_and_literals();
 }