diff --git a/vm/data_gc.c b/vm/data_gc.c
index ac77058fea..513a7c429c 100755
--- a/vm/data_gc.c
+++ b/vm/data_gc.c
@@ -985,6 +985,7 @@ void primitive_become(void)
 	}
 
 	gc();
+	iterate_code_heap(relocate_code_block);
 }
 
 CELL find_all_words(void)