--- gforth/struct.fs	1995/09/06 21:00:30	1.6
+++ gforth/struct.fs	1995/10/07 17:38:20	1.7
@@ -1,4 +1,4 @@
-\ $Id: struct.fs,v 1.6 1995/09/06 21:00:30 pazsan Exp $
+\ $Id: struct.fs,v 1.7 1995/10/07 17:38:20 anton Exp $
 
 \ Usage example:
 \
@@ -18,7 +18,7 @@
 
 : field ( offset1 align1 size align -- offset2 align2 )
 \ note: this version uses local variables
-     Header reveal -7 ( [ :dostruc ] Literal ) cfa,
+     Header reveal dofield: cfa,
 	>r rot r@ nalign  dup ,  ( align1 size offset )
 	+ swap r> nalign ;