--- gforth/prim	2002/11/24 13:54:00	1.102
+++ gforth/prim	2002/12/03 10:47:49	1.103
@@ -2461,7 +2461,7 @@ does-exec ( #a_cfa -- R:nest a_pfa )	new
 assert(0);
 #else
 a_pfa = PFA(a_cfa);
-nest = (Cell)ip;
+nest = (Cell)IP;
 IF_spTOS(spTOS = sp[0]);
 #ifdef DEBUG
     {