--- gforth/cross.fs	2001/05/09 16:22:10	1.98
+++ gforth/cross.fs	2001/06/16 22:53:36	1.99
@@ -2112,7 +2112,7 @@ T has? peephole H [IF]
 [ELSE]
 : compile:  ( ghost -- ghost xt colon-sys )  :noname ;
 : ;compile ( ghost xt colon-sys -- ghost )
-    postpone ; drop ; immediate
+    postpone ; drop ['] prim-resolved over >comp ! ; immediate
 [THEN]
 
 : by      ( -- ghost ) \ Name
@@ -2698,6 +2698,10 @@ previous
 : .s            .s ;
 : bye           bye ;
 
+\ dummy
+
+: group  source >in ! drop ;
+
 \ turnkey direction
 : H forth ; immediate
 : T minimal ; immediate