--- gforth/stuff.fs	2007/12/31 18:40:24	1.57
+++ gforth/stuff.fs	2008/11/08 15:54:06	1.58
@@ -387,3 +387,7 @@ previous
     endtry
     throw ;
 
+\ th
+
+: th ( addr1 u -- addr2 )
+    cells + ;