--- gforth/cross.fs	1997/05/21 20:39:21	1.48
+++ gforth/cross.fs	1997/06/11 19:51:17	1.49
@@ -722,7 +722,7 @@ Cond: DOES> restrict?
 	dup >magic @ <do:> =
 	IF  gexecute T 0 , H  EXIT THEN
     THEN
-    compile :dodoes gexecute T here H cell - reloff ;
+    compile :dodoes gexecute T here H tcell - reloff ;
 
 : TCreate ( -- )
   last-ghost @