--- gforth/compat/struct.fs	1997/06/23 15:54:02	1.3
+++ gforth/compat/struct.fs	1997/07/31 16:17:23	1.4
@@ -66,6 +66,12 @@ does> ( name execution: -- )
 cell% 2*              2constant double%
 
 \ memory allocation words
+: %alignment ( align size -- align )
+    drop ;
+
+: %size ( align size -- size )
+    nip ;
+
 : %align ( align size -- )
     drop here swap nalign here - allot ;