anchor.diff:                              if attempts = 0 then
                                   return None
                               else
  -                                try
  -                                    do! pingAsync
  -                                    return! waitForReply (attempts - 1)
  -                                with _ -> return None
  +                                do! pingAsync
  +                                return! waitForReply (attempts - 1)
                                               
                       }
                   waitForReply 3
  
positive.code:                         match r' with
                          | Choice1Of2 _ ->
                              //debug "WAITING FOR REPLY"
                              let! response = awaitResponse
                              //debug "REPLY RETURNED"
                              return Choice1Of2 response
                          | Choice2Of2 e ->
                              unregisterResponseAsyncWait msgId
                              return Choice2Of2 e
  
negative.code: 
              new (actorId: TcpActorId, msgId: MsgId, ?serializer: string) = 
                  {
                      timeout = 30000
                      actorId = actorId
                      msgId = msgId
                      serializerName = serializerNameDefaultArg serializer
  