--- gforth/comp-i.fs	2004/12/31 13:23:56	1.16
+++ gforth/comp-i.fs	2007/09/29 22:20:02	1.17
@@ -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