--- gforth/libffi.fs	2005/11/27 23:58:02	1.4
+++ gforth/libffi.fs	2005/12/03 15:15:20	1.5
@@ -112,7 +112,7 @@ Create argptr maxargs 0 [DO]  argbuf [I]
 
 \ "backward" when revarg is off
 
-: >i-  ( n buf -- buf' )     2 cells - tuck   ffi-i! ;
+: >i-  ( n buf -- buf' )     2 cells - tuck   t! ;
 : >p-  ( addr buf -- buf' )  2 cells - tuck    ! ;
 : >d-  ( d buf -- buf' )     2 cells - dup >r ffi-2! r> ;
 : >sf- ( r buf -- buf' )     2 cells - dup   sf! ;
@@ -120,7 +120,7 @@ Create argptr maxargs 0 [DO]  argbuf [I]
 
 \ return value
 
-: i>x   ( -- n )  retbuf ffi-i@ ;
+: i>x   ( -- n )  retbuf t@ ;
 : p>x   ( -- addr ) retbuf @ ;
 : d>x   ( -- d )  retbuf ffi-2@ ;
 : sf>x  ( -- r )  retbuf sf@ ;