fix typo in forth.s