--- gforth/fi2c.fs	2010/01/08 18:54:34	1.23
+++ gforth/fi2c.fs	2010/12/31 18:09:02	1.25
@@ -1,6 +1,6 @@
 \ Convert image to C include file
 
-\ Copyright (C) 1998,1999,2002,2003,2007 Free Software Foundation, Inc.
+\ Copyright (C) 1998,1999,2002,2003,2007,2010 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -113,7 +113,7 @@ Variable au
 
 : search-magic ( fd -- )  >r
     BEGIN  magicbuf 8 r@ read-file throw  8 =  WHILE
-	magicbuf s" Gforth3" tuck str=  UNTIL
+	magicbuf s" Gforth4" tuck str=  UNTIL
     ELSE  true abort" No magic found"  THEN
     1 magicbuf 7 + c@ 5 rshift 3 and lshift tchars !
     1 magicbuf 7 + c@ 1 rshift 3 and lshift tcell !