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:                         match r' with
                          | Choice1Of2 _ ->
                              //debug "WAITING FOR REPLY"
                              let! response = Async.Catch awaitResponse
                              match response with
                              | Choice1Of2 r ->
                                  //debug "REPLY RETURNED"
                                  return Choice1Of2 r
                              | Choice2Of2 e -> return Choice2Of2 e
                          | Choice2Of2 e ->
                              unregisterResponseAsyncWait msgId
                              return Choice2Of2 e
  