Minor fix in \pld@SubstSqrtPoly
Create dtx.