valid_compressed_run
if (!valid_compressed_run(na,wrl,FALSE,"begin compressed write")) {
&& !valid_compressed_run(na,wrl,TRUE,"end compressed write"))
if (done && !valid_compressed_run(na,wrl,TRUE,"end compressed close"))