--- gforth/prim	2001/03/18 12:39:33	1.79
+++ gforth/prim	2001/03/18 22:20:27	1.80
@@ -2351,6 +2351,8 @@ while(a_addr != NULL)
 
 \+
 
+\+peephole
+
 primtable	( -- wprimtable )	new
 ""wprimtable is a table containing the xts of the primitives indexed
 by sequence-number in prim (for use in prepare-peephole-table).""
@@ -2377,5 +2379,4 @@ SET_IP((Xt *)a_callee);
 useraddr	( #u -- a_addr )
 a_addr = (Cell *)(up+u);
 
-
-
+\+