--- gforth/cross.fs	2003/05/11 17:17:13	1.139
+++ gforth/cross.fs	2003/08/18 19:29:14	1.141
@@ -1177,7 +1177,7 @@ false DefaultValue new-input
 false DefaultValue peephole
 false DefaultValue abranch
 true DefaultValue f83headerstring
-true  DefaultValue control-rack
+true DefaultValue control-rack
 [THEN]
 
 true DefaultValue gforthcross
@@ -2296,6 +2296,7 @@ Defer setup-prim-semantics
 Variable prim#
 : first-primitive ( n -- )  prim# ! ;
 : group 0 word drop prim# @ 1- -$200 and prim# ! ;
+: groupadd  ( n -- )  drop ;
 : Primitive  ( -- ) \ name
   >in @ skip? IF  drop  EXIT  THEN  >in !
   s" prims" T $has? H 0=