--- gforth/libffi.fs 2009/12/31 15:32:35 1.33 +++ gforth/libffi.fs 2012/03/17 01:36:04 1.34 @@ -51,7 +51,7 @@ include-ffi.h-string save-c-prefix-line \c gforth_clist = args; \c gforth_ritem = resp; \c -\c gforth_engine((Xt *)ip, sp, rp1, fp, lp, gforth_UP); +\c gforth_engine((Xt *)ip, sp, rp1, fp, lp); \c \c /* restore global variables */ \c gforth_RP = rp1;