--- gforth/libffi.fs	2009/02/24 22:34:35	1.31
+++ gforth/libffi.fs	2012/03/17 01:36:04	1.34
@@ -1,6 +1,6 @@
 \ libffi.fs	shared library support package 		14aug05py
 
-\ Copyright (C) 1995,1996,1997,1998,2000,2003,2005,2006,2007,2008 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1996,1997,1998,2000,2003,2005,2006,2007,2008,2009 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -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;
@@ -274,7 +274,7 @@ Create argptr maxargs 0 [DO]  argbuf [I]
 : sf>x  ( -- r )  retbuf sf@ ;
 : df>x  ( -- r )  retbuf df@ ;
 
-wordlist constant cifs
+table constant cifs
 
 Variable cifbuf $40 allot \ maximum: 64 parameters
 : cifreset  cifbuf cell+ cifbuf ! ;