--- gforth/savesys.fs 2002/09/14 08:20:20 1.4 +++ gforth/savesys.fs 2003/02/06 16:49:17 1.5 @@ -41,6 +41,7 @@ : dump-fi ( addr u -- ) w/o bin create-file throw >r update-image-included-files + update-image-order here forthstart - forthstart 2 cells + ! forthstart begin \ search for start of file ("#! " at a multiple of 8)