--- gforth/libffi.fs	2005/12/11 20:10:01	1.9
+++ gforth/libffi.fs	2006/02/25 18:28:11	1.11
@@ -149,7 +149,7 @@ Variable args args off
     postpone Literal ;
 
 Variable ind-call  ind-call off
-: fptr:  ind-call on  Create  here thisproc !
+: fptr  ind-call on  Create  here thisproc !
     0 , 0 , 0 , 0 also c-decl  DOES>  cell+ dup cell+ cell+ >r ! ;
 
 : ffi-call, ( -- lit-cif )
@@ -206,7 +206,7 @@ also c-decl definitions
 
 ' noop   0 rettype (void)
 ' is>x   6 rettype (int)
-' i>x    6 rettype (uint)
+' i>x    5 rettype (uint)
 ' p>x  &12 rettype (ptr)
 ' d>x    8 rettype (llong)
 ' sf>x   9 rettype (sf)