modify to apply updated cl-ply