diff --git a/scsh/network1.c b/scsh/network1.c
index 86925a9..fff98d6 100644
--- a/scsh/network1.c
+++ b/scsh/network1.c
@@ -402,7 +402,7 @@ s48_value scheme_getsockopt (s48_value s,
 			     s48_value optname)
 {
   int optval;
-  int optlen=sizeof(optval);
+  size_t optlen=sizeof(optval);
   
   if (getsockopt(s48_extract_fixnum (s),
 		 s48_extract_fixnum (level),
@@ -419,7 +419,7 @@ s48_value scheme_getsockopt_linger (s48_value s,
 				    s48_value optname)
 {
   struct linger optval;
-  int optlen=sizeof(optval);
+  size_t optlen=sizeof(optval);
   
   if (getsockopt(s48_extract_fixnum (s),
 		 s48_extract_fixnum (level),