--- gforth/prim	2003/08/20 09:23:45	1.139
+++ gforth/prim	2003/08/20 13:29:19	1.140
@@ -141,6 +141,8 @@ undefine(`index')
 undefine(`shift')
 undefine(`symbols')
 
+\F 0 [if]
+
 \ run-time routines for non-primitives.  They are defined as
 \ primitives, because that simplifies things.
 
@@ -180,6 +182,8 @@ SET_IP(DOES_CODE1(CFA));
 ""just a slot to have an encoding for the DOESJUMP, 
 which is no longer used anyway (!! eliminate this)""
 
+\F [endif]
+
 \g control
 
 noop	( -- )		gforth