--- gforth/Attic/comp-image.fs	1997/03/04 17:49:46	1.3
+++ gforth/Attic/comp-image.fs	1997/03/11 16:00:37	1.4
@@ -59,7 +59,7 @@ s" address-unit-bits" environment? drop
 	    cell1 dbase - file-id write-cell throw
 	    i reloc-bits set-bit
 	else
-	    cell1 coffset + cell2 =
+	    coffset 0<> cell1 coffset + cell2 = and
 	    if
 		cell1 cbase - cell / { tag }
 		tag dodoes-tag =