--- gforth/unix/socket.fs	2008/07/15 16:11:49	1.21
+++ gforth/unix/socket.fs	2008/07/27 10:34:06	1.22
@@ -42,7 +42,7 @@ c-function fcntl fcntl n n n -- n ( fd n
 c-function htonl htonl n -- n ( x -- x' )
 c-function htons htons n -- n ( x -- x' )
 c-function ntohl ntohl n -- n ( x -- x' )
-c-function fileno fileno a -- n ( file* -- fd )
+c-function fileno fileno file -- n ( file* -- fd )
 end-c-library
 
 4 4 2Constant int%