diff --git a/src/unixcomm.c b/src/unixcomm.c
index f3cf9ff..3636157 100644
--- a/src/unixcomm.c
+++ b/src/unixcomm.c
@@ -365,7 +365,7 @@ static int FindAvailablePty(char *Slave) {
 /************************************************************************/
 
 LispPTR Unix_handlecomm(LispPTR *args) {
-  int command, dest, i, slot, sock;
+  int command, dest, slot;
   unsigned char d[6];
   unsigned char ch;
   unsigned char buf[1];
@@ -852,6 +852,7 @@ LispPTR Unix_handlecomm(LispPTR *args) {
     case 15: /* Write buffer */
     {
       DLword *bufp;
+      int i;
       N_GETNUMBER(args[1], slot, bad);              /* Get job # */
       bufp = (Addr68k_from_LADDR(args[2])); /* User buffer */
       N_GETNUMBER(args[3], i, bad);                 /* # to write */