change in F89 to remove errant "loc>"