--- gforth/engine/threaded.h	2003/01/03 17:10:10	1.20
+++ gforth/engine/threaded.h	2003/03/09 15:17:04	1.22
@@ -1,6 +1,6 @@
 /* This file defines a number of threading schemes.
 
-  Copyright (C) 1995, 1996,1997,1999 Free Software Foundation, Inc.
+  Copyright (C) 1995, 1996,1997,1999,2003 Free Software Foundation, Inc.
 
   This file is part of Gforth.
 
@@ -105,8 +105,8 @@
 #  define NEXT_P1	({\
   if (DEBUG_DITC && (cfa<=vm_prims+DOESJUMP || cfa>=vm_prims+npriminfos)) \
     fprintf(stderr,"NEXT encountered prim %p at ip=%p\n", cfa, ip); \
-  ip++; ca=**cfa;})
-#  define NEXT_P2	({goto *ca;})
+  ip++;})
+#  define NEXT_P2	({ca=**cfa; goto *ca;})
 #  define EXEC(XT)	({DEF_CA cfa=(XT);\
   if (DEBUG_DITC && (cfa>vm_prims+DOESJUMP && cfa<vm_prims+npriminfos)) \
     fprintf(stderr,"EXEC encountered xt %p at ip=%p, vm_prims=%p, xts=%p\n", cfa, ip, vm_prims, xts); \