anchor.diff:      let actorRef = self.RefPrimary(actor) :> ActorRef
   
       self.RefPrimary(actor) <-- TestAsync 42
  -    let r = actorRef.TryPostWithReplyUntyped(fun ch -> TestSync(ch |> ReplyChannel.map box, 43) |> box)
  -            |> Async.RunSynchronously
  -
  -    r |> should equal (Some 42)
  +    let r = actorRef.TryPostWithReplyUntyped(fun ch -> (TestSync(ch |> ReplyChannel.map box, 43) : TestMessage<int, int>) |> box)
  +            |> Async.RunSynchronously
  +
  +    r |> Option.map unbox<int> |> should equal (Some 42)
   
     [<Test>]
     member self.``Untyped try post with reply with timeout (in time)``() =
  
positive.code:     self.RefPrimary(actor) <-- TestAsync 42
      let r = actorRef.TryPostWithReplyUntyped((fun ch -> (TestSync(ch |> ReplyChannel.map box, Default.ReplyReceiveTimeout/4) : TestMessage<int, int>) |> box), Default.ReplyReceiveTimeout*4)
              |> Async.RunSynchronously
  
      r |> should equal (Some 42)
  
    [<Test>]
    member self.``Untyped try post with reply with timeout (time-out)``() =
  
negative.code:     let r = actorRef.TryPostWithReplyUntyped((fun ch -> (TestSync(ch |> ReplyChannel.map box, Default.ReplyReceiveTimeout*4) : TestMessage<int, int>) |> box), Default.ReplyReceiveTimeout/4)
              |> Async.RunSynchronously
  
      r |> Option.map unbox<int> |> should equal None
  
    [<Test>]
    member self.``Order of posts``() =
  