--- 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