diff --git a/vm/free_list_allocator.hpp b/vm/free_list_allocator.hpp
index 7d7807ef9a..8c63bd487d 100644
--- a/vm/free_list_allocator.hpp
+++ b/vm/free_list_allocator.hpp
@@ -164,7 +164,7 @@ template<typename Block, typename Iterator> struct heap_compactor {
 	{
 		if(this->state->marked_p(block))
 		{
-			*finger = block;
+			*finger = (Block *)((char *)block + size);
 			memmove((Block *)address,block,size);
 			iter(block,(Block *)address,size);
 			address += size;