Index: contrib/sockets/sockets.lisp
===================================================================
RCS file: /cvsroot/ecls/ecls/contrib/sockets/sockets.lisp,v
retrieving revision 1.17
diff -u -r1.17 sockets.lisp
--- contrib/sockets/sockets.lisp	5 Dec 2005 09:21:30 -0000	1.17
+++ contrib/sockets/sockets.lisp	13 Feb 2006 22:46:29 -0000
@@ -518,7 +518,7 @@
 "{
         struct sockaddr_in sockaddr;
         int addr_len = sizeof(struct sockaddr_in);
-        int new_fd = accept(#0, (struct sockaddr*)&sockaddr, &addr_len);
+        int new_fd = accept(#0, (struct sockaddr*)&sockaddr, (socklen_t*) &addr_len);
 
 	@(return 0) = new_fd;
 	@(return 1) = Cnil;