--- gforth/xwords.fs	2007/12/31 19:02:24	1.3
+++ gforth/xwords.fs	2009/05/24 17:36:36	1.4
@@ -73,4 +73,21 @@ xword K-SHIFT-MASK X:ekeys
 xword K-CTRL-MASK  X:ekeys
 xword K-ALT-MASK   X:ekeys
 
-\ X:fp-stack no new words
\ No newline at end of file
+\ X:fp-stack no new words
+
+\ X:number-prefixes no new words
+
+\ X:structures
+
+xword +field          X:structures
+xword begin-structure X:structures
+xword end-structure   X:structures
+xword cfield:         X:structures
+xword field:          X:structures
+xword 2field:         X:structures
+xword ffield:         X:structures
+xword sffield:        X:structures
+xword dffield:        X:structures
+
+\ X:ftrunc
+xword FTRUNC       X:ftrunc