--- gforth/comp-i.fs 2004/04/10 10:05:03 1.15 +++ gforth/comp-i.fs 2007/09/29 22:20:02 1.17 @@ -1,6 +1,6 @@ \ Compare nonrelocatable images and produce a relocatable image -\ Copyright (C) 1996,1997,1998,2002,2003 Free Software Foundation, Inc. +\ Copyright (C) 1996,1997,1998,2002,2003,2004 Free Software Foundation, Inc. \ This file is part of Gforth. @@ -19,7 +19,7 @@ \ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. s" address-unit-bits" environment? drop constant bits/au -6 constant dodoes-tag +7 constant dodoes-tag : write-cell { w^ w file-id -- ior } \ write a cell to the file