--- gforth/cross.fs	2006/03/05 14:10:51	1.158
+++ gforth/cross.fs	2006/03/25 18:37:15	1.159
@@ -3730,6 +3730,8 @@ previous
 : 2/ 2/ ;
 : hex. base @ $10 base ! swap . base ! ;
 : invert invert ;
+: linkstring ( addr u n addr -- )
+    X here over X @ X , swap X ! X , ht-string, X align ;
 \ : . . ;
 
 : all-words    ['] forced?    IS skip? ;