anchor.diff:  
               new (actorId: TcpActorId, msgId: MsgId, ?serializer: string) = 
                   {
  -                    timeout = Timeout.Infinite
  +                    timeout = 30000
                       actorId = actorId
                       msgId = msgId
                       serializerName = serializerNameDefaultArg serializer
  
positive.code:                             if attempts = 0 then
                                  return None
                              else
                                  try
                                      do! pingAsync
                                      return! waitForReply (attempts - 1)
                                  with _ -> return None
                                              
                      }
                  waitForReply 3
  
negative.code:                     let! r = postMessageWithReplyOnEndPoint endPoint msgId msg timeout
                      match r with
                      | Choice1Of2 reply -> return reply
                      //| Choice2Of2(CommunicationException(_, _, _, InnerException e)) -> return! raisex e
                      | Choice2Of2((CommunicationException _) as e) -> return! raisex e
                      | Choice2Of2 e -> return! raisex <| new CommunicationException("A communication error occurred.", e)
                  | endPoint::rest ->
  