Use Alexandria's MAP-PRODUCT rather than my own APPLY-TO-PRODUCT.