--- gforth/comp-i.fs	2010/05/13 09:39:07	1.21
+++ gforth/comp-i.fs	2010/09/05 18:04:17	1.22
@@ -24,9 +24,6 @@ s" address-unit-bits" environment? drop
     \ write a cell to the file
     w cell file-id write-file ;
 
-: th ( addr1 n -- addr2 )
-    cells + ;
-
 : bset ( bmask c-addr -- )
     tuck c@ or swap c! ;