[cvs-nhc98] patch applied (hat): Hat: in primitive for hPutChar, failure to follow an indirection for