--- gforth/engine/threaded.h	2002/12/22 13:40:45	1.17
+++ gforth/engine/threaded.h	2002/12/28 17:18:27	1.18
@@ -99,12 +99,12 @@
 #  define INC_IP(const_inc)	({cfa=IP[const_inc]; ip+=(const_inc);})
 #  define DEF_CA	Label ca;
 #  define NEXT_P1	({\
-  if (cfa<=vm_prims+DOESJUMP || cfa>=vm_prims+npriminfos) \
-    fprintf(stderr,"NEXT encountered prim %p at ip=%p\n", cfa, ip); \
+  if ((cfa<=vm_prims+DOESJUMP || cfa>=vm_prims+npriminfos)) \
+    fprintf(stderr,"NEXT encountered prim %p at ip=%p [%p .. %p]\n", cfa, ip, vm_prims+DOESJUMP, vm_prims+npriminfos); \
   ip++; ca=**cfa;})
 #  define NEXT_P2	({goto *ca;})
 #  define EXEC(XT)	({DEF_CA cfa=(XT);\
-  if (cfa>vm_prims+DOESJUMP && cfa<vm_prims+npriminfos) \
+  if ((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); \
  ca=**cfa; goto *ca;})