fix error in font.R
fix an error using strcomp()