--- gforth/compat/struct.fs	1998/04/14 16:43:21	1.5
+++ gforth/compat/struct.fs	2007/02/08 14:07:28	1.7
@@ -23,9 +23,11 @@
 \ from MEMORY :
 \ allocate 
 
-: nalign ( addr1 n -- addr2 )
-\ addr2 is the aligned version of addr1 wrt the alignment size n
- 1- tuck +  swap invert and ;
+: naligned ( addr1 n -- addr2 )
+    \ addr2 is the aligned version of addr1 wrt the alignment size n
+    1- tuck +  swap invert and ;
+
+: nalign naligned ; \ old name, obsolete
 
 : dofield ( -- )
 does> ( name execution: addr1 -- addr2 )
@@ -82,5 +84,5 @@ cell% 2*              2constant double%
 : %allocate ( align size -- addr ior )
     nip allocate ;
 
-: %alloc ( size align -- addr )
+: %alloc ( align size -- addr )
     %allocate throw ;