--- gforth/prim	2001/02/24 13:44:39	1.74
+++ gforth/prim	2001/02/26 15:14:20	1.75
@@ -2346,7 +2346,7 @@ while(a_addr != NULL)
 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).""
-wprimtable = (Cell)primtable(symbols+DOESJUMP+1,MAX_SYMBOLS);
+wprimtable = (Cell)primtable(symbols+DOESJUMP+1,MAX_SYMBOLS-DOESJUMP-1);
 
 prepare-peephole-table	( wprimtable -- wpeeptable ) new prepare_peephole_opt
 ""wpeeptable is a data structure used by @code{peephole-opt}; it is
@@ -2360,3 +2360,14 @@ they cannot be combined, xt is 0.""
 xt = peephole_opt(xt1, xt2, wpeeptable);
 
 lit_plus = lit +
+
+call	( #a_callee -- R:a_retaddr )
+""Call callee (a variant of docol with inline argument).""
+a_retaddr = (Cell *)IP;
+SET_IP((Xt *)a_callee);
+
+useraddr	( #u -- a_addr )
+a_addr = (Cell *)(up+u);
+
+
+