--- gforth/compat/struct.fs	1999/02/22 21:39:43	1.6
+++ gforth/compat/struct.fs	2007/02/08 14:07:28	1.7
@@ -84,5 +84,5 @@ cell% 2*              2constant double%
 : %allocate ( align size -- addr ior )
     nip allocate ;
 
-: %alloc ( size align -- addr )
+: %alloc ( align size -- addr )
     %allocate throw ;