diff --git a/src/ioc/rsrv/caservertask.c b/src/ioc/rsrv/caservertask.c
index f2dfd9165..b31dd596a 100644
--- a/src/ioc/rsrv/caservertask.c
+++ b/src/ioc/rsrv/caservertask.c
@@ -65,7 +65,7 @@ static void req_server (void *pParm)
     struct sockaddr_in serverAddr;  /* server's address */
     osiSocklen_t addrSize = (osiSocklen_t) sizeof(struct sockaddr_in);
     int status;
-    SOCKET clientSock;
+    SOCKET IOC_sock;
     epicsThreadId tid;
     int portChange;
 
@@ -102,10 +102,6 @@ static void req_server (void *pParm)
 
     memcpy ( &serverAddr, &pNode->addr.ia, addrSize );
 
-    if (IOC_sock != 0 && IOC_sock != INVALID_SOCKET) {
-        epicsSocketDestroy ( IOC_sock );
-    }
-
     /*
      * Open the socket. Use ARPA Internet address format and stream
      * sockets. Format described in <sys/socket.h>.
@@ -196,6 +192,7 @@ static void req_server (void *pParm)
     epicsEventSignal(castcp_startStopEvent);
 
     while (TRUE) {
+        SOCKET clientSock;
         struct sockaddr     sockAddr;
         osiSocklen_t        addLen = sizeof(sockAddr);
 
diff --git a/src/ioc/rsrv/server.h b/src/ioc/rsrv/server.h
index c328195ed..ce084fa65 100644
--- a/src/ioc/rsrv/server.h
+++ b/src/ioc/rsrv/server.h
@@ -164,7 +164,6 @@ enum ctl {ctlInit, ctlRun, ctlPause, ctlExit};
 #endif
 
 GLBLTYPE int                CASDEBUG;
-GLBLTYPE SOCKET             IOC_sock;
 GLBLTYPE unsigned short     ca_server_port;
 GLBLTYPE ELLLIST            clientQ; /* (TCP clients) locked by clientQlock */
 GLBLTYPE ELLLIST            clientQudp; /* locked by clientQlock */