--- gforth/prim	2001/03/18 22:20:27	1.80
+++ gforth/prim	2001/05/01 13:35:42	1.82
@@ -2143,7 +2143,7 @@ Variable UP
 wcall	( u -- )	gforth
 IF_fpTOS(fp[0]=fpTOS);
 FP=fp;
-sp=(SYSCALL(Cell(*)(Cell *, void *))u)(sp, &FP);
+sp=(Cell*)(SYSCALL(Cell(*)(Cell *, void *))u)(sp, &FP);
 fp=FP;
 IF_spTOS(spTOS=sp[0];)
 IF_fpTOS(fpTOS=fp[0]);
@@ -2369,8 +2369,6 @@ peephole-opt	( xt1 xt2 wpeeptable -- xt
 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;
@@ -2379,4 +2377,6 @@ SET_IP((Xt *)a_callee);
 useraddr	( #u -- a_addr )
 a_addr = (Cell *)(up+u);
 
+include(peeprules.vmg)
+
 \+