`(when tar-entry ...)` ?