diff --git a/vm/code_block.cpp b/vm/code_block.cpp
index a64a8d2c2d..9eec4a2ea6 100755
--- a/vm/code_block.cpp
+++ b/vm/code_block.cpp
@@ -345,8 +345,8 @@ void copy_literal_references(code_block *compiled, factorvm *myvm)
 void factorvm::relocate_code_block_step(relocation_entry rel, cell index, code_block *compiled)
 {
 #ifdef FACTOR_DEBUG
-	tagged<array>(compiled->literals).untag_check();
-	tagged<byte_array>(compiled->relocation).untag_check();
+	tagged<array>(compiled->literals).untag_check(vm);
+	tagged<byte_array>(compiled->relocation).untag_check(vm);
 #endif
 
 	store_address_in_code_block(relocation_class_of(rel),
diff --git a/vm/tagged.hpp b/vm/tagged.hpp
index 9f8a0eb411..b73f3aeb7a 100755
--- a/vm/tagged.hpp
+++ b/vm/tagged.hpp
@@ -37,13 +37,13 @@ struct tagged
 
 	explicit tagged(cell tagged) : value_(tagged) {
 #ifdef FACTOR_DEBUG
-		untag_check();
+		untag_check(vm);
 #endif
 	}
 
 	explicit tagged(TYPE *untagged) : value_(factor::tag(untagged)) {
 #ifdef FACTOR_DEBUG
-		untag_check();
+		untag_check(vm);
 #endif
 	}