--- gforth/cross.fs	2007/03/25 21:30:59	1.162
+++ gforth/cross.fs	2007/03/31 21:43:18	1.163
@@ -2316,7 +2316,11 @@ Variable prim#
   prim# @ (THeader ( S xt ghost )
   ['] prim-resolved over >comp !
   dup >ghost-flags <primitive> set-flag
-  over resolve-noforwards T A, H alias-mask flag!
+  over resolve-noforwards T A, H
+  s" EC" T $has? H 0=
+  IF
+      alias-mask flag!
+  THEN
   -1 prim# +! ;
 >CROSS