--- gforth/cross.fs	2012/03/09 21:16:22	1.181
+++ gforth/cross.fs	2012/12/31 15:25:18	1.184
@@ -1,7 +1,7 @@
 \ CROSS.FS     The Cross-Compiler                      06oct92py
 \ Idea and implementation: Bernd Paysan (py)
 
-\ Copyright (C) 1995,1996,1997,1998,1999,2000,2003,2004,2005,2006,2007,2009,2010,2011 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1996,1997,1998,1999,2000,2003,2004,2005,2006,2007,2009,2010,2011,2012 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -2057,6 +2057,7 @@ $20 constant restrict-mask
                 <res> <> ABORT" CROSS: Cannot immediate a unresolved word"
                 <imm> ^imm @ ! ;
 : restrict      restrict-mask flag! ;
+: compile-only  restrict-mask flag! ;
 
 : isdoer	
 \G define a forth word as doer, this makes obviously only sence on
@@ -2649,6 +2650,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 -- )