--- gforth/savesys.fs 2002/09/14 08:20:20 1.4 +++ gforth/savesys.fs 2003/03/09 15:16:52 1.6 @@ -1,6 +1,6 @@ \ image dump 15nov94py -\ Copyright (C) 1995,1997 Free Software Foundation, Inc. +\ Copyright (C) 1995,1997,2003 Free Software Foundation, Inc. \ This file is part of Gforth. @@ -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)