diff --git a/src/c/compiler.d b/src/c/compiler.d
index de38905f01e6c0e4798998002e1d79414bd687c3..79d82e42a8d98e3152f6d960d5424184beb92406 100644
--- a/src/c/compiler.d
+++ b/src/c/compiler.d
@@ -1977,7 +1977,7 @@ c_tagbody(MKCL, mkcl_object args, int flags)
 		compile_body(env, args, 0);
 		return compile_form(env, mk_cl_Cnil, flags);
 	}
-	asm_op2c(env, OP_BLOCK, MKCL_MAKE_FIXNUM(0));
+	asm_op2c(env, OP_BLOCK, labels); /* This passes the list of labels to the runtime lex-env. JCB */
 	c_register_tags(env, labels);
 	asm_op2(env, OP_TAGBODY, nt);
 	tag_base = current_pc(env);