fixing a typo which causes the wrong source text for pcat.f to be used