--- gforth/prim	2003/08/04 20:32:35	1.131
+++ gforth/prim	2003/08/15 16:47:43	1.134
@@ -1561,7 +1561,7 @@ c_addr = strerror(n);
 u = strlen(c_addr);
 
 strsignal	( n -- c_addr u )	gforth
-c_addr = strsignal(n);
+c_addr = (Address)strsignal(n);
 u = strlen(c_addr);
 
 call-c	( w -- )	gforth	call_c
@@ -2232,6 +2232,7 @@ REST_REGS
 av-call-int    ( -- w )        gforth  av_call_int
 SAVE_REGS
 av_call(alist);
+REST_REGS
 w = irv;
 
 av-call-float   ( -- r )        gforth  av_call_float
@@ -2259,7 +2260,7 @@ REST_REGS
 c_addr = prv;
 
 alloc-callback	( xt -- c_addr )	gforth	alloc_callback
-c_addr = (char *)alloc_callback(engine_callback, (void *)xt);
+c_addr = (char *)alloc_callback(engine_callback, ((Xt *)xt)+2);
 
 va-start-int	( -- w )	gforth	va_start_int
 w = va_start_int(clist);