diff --git a/net/net/src/TSocket.cxx b/net/net/src/TSocket.cxx
index f5f0fd366ea30b7837895a7235429e42096b0fbe..2977ac69566f27642856ec069387a0c920450e91 100644
--- a/net/net/src/TSocket.cxx
+++ b/net/net/src/TSocket.cxx
@@ -34,7 +34,6 @@
 #include "TVirtualAuth.h"
 #include "TVirtualMutex.h"
 #include "TStreamerInfo.h"
-#include "TProcessID.h"
 
 ULong64_t TSocket::fgBytesSent = 0;
 ULong64_t TSocket::fgBytesRecv = 0;
@@ -450,35 +449,6 @@ Int_t TSocket::Send(const TMessage &mess)
          messinfo.fInfos->Clear();
          Send(messinfo);
       }
-   }  
-          
-   //check if TProcessID must be sent. The list of TProcessID
-   //in the object in the message is in the fInfos list of the message.
-   //We send only the TProcessIDs not yet send on this socket.
-   if (mess.TestBitNumber(0)) {
-      TObjArray *pids = TProcessID::GetPIDs();
-      Int_t npids = pids->GetEntries();
-      TProcessID *pid;
-      for (Int_t ipid = 0;ipid<npids;ipid+) {
-         pid = TProcessID*)pids->At(ipid);
-         if (!pid) continue;
-         if (!mess.TestBitNumber(pid->GetUniqueID()+1)) continue;
-         //check if a pid with this title has already been sent through the socket
-         
-      TList *minilist =0;
-      while ((pid=(TProcessID*)next())) {
-         UInt_t uid = pid->GetUniqueID();
-         if (mess.TestBitNumber(uid+1)) continue; //TProcessID had already been sent
-         fBitsInfo.SetBitNumber(uid);
-         if (!minilist) minilist = new TList();
-         minilist->Add(pid);
-      }
-      if (minilist) {
-         TMessage messpid(kMESS_PROCESSID);
-         messpid.WriteObject(minilist);
-         delete minilist;
-         Send(messpid);
-      }
    }         
 
    mess.SetLength();   //write length in first word of buffer
@@ -726,24 +696,6 @@ Int_t TSocket::Recv(TMessage *&mess)
       goto oncemore;
    }
    
-   if (mess->What() == kMESS_PROCESSID) {
-      TList *list = (TList*)mess->ReadObject(TList::Class());
-      TIter next(list);
-      TProcessID *pid;
-      while ((pid = (TProcessID*)next())) {
-         //if (cl && cl->GetStreamerInfo(info->GetOldVersion())) {
-            //delete
-            //printf("TStreamerInfo: %s, version=%d already there\n",info->GetName(),info->GetOldVersion());
-         //    continue;
-         //}
-         printf("importing TProcessID: %s\n",pid->GetTitle());
-         
-      }
-      delete list;
-      delete mess;
-      goto oncemore;
-   }
-   
    if (mess->What() & kMESS_ACK) {
       char ok[2] = { 'o', 'k' };
       Int_t n2 = 0;