--- gforth/cross.fs	2012/03/09 21:16:22	1.181
+++ gforth/cross.fs	2012/05/09 22:23:52	1.182
@@ -2649,6 +2649,7 @@ Defer instant-interpret-does>-hook  ' no
 
 T has? primcentric H [IF]
 : does-resolved ( ghost -- )
+\    g>xt dup T >body H alit, compile call T cell+ @ a, H ;
     compile does-exec g>xt T a, H ;
 [ELSE]
 : does-resolved ( ghost -- )