--- gforth/fi2c.fs 1998/12/13 23:29:58 1.4 +++ gforth/fi2c.fs 1998/12/20 23:17:54 1.5 @@ -84,7 +84,7 @@ Variable bitmap-chars image-header 3 cells + @ bswap tcell @ / tchars @ * .08x ; : .relocsize ( -- ) - bitmap-chars @ tchars @ / .08x ; + bitmap-chars @ 1- tchars @ / 1+ .08x ; : fi2c ( addr u -- ) base @ >r hex read-image