Bug fix in readpsf.R