anchor.diff:          match msg with
           | :? 'Command as cmd -> aggregate.exec mailbox state cmd
           | _ -> 
  -            let serializer = UntypedActor.Context.System.Serialization.FindSerializerForType typeof<obj>
  +            let serializer = UntypedActor.Context.System.Serialization.FindSerializerForType typeof<'Command>
               match msg with
               | :? (byte[]) as bytes -> 
                   let cmd = serializer.FromBinary(bytes, typeof<'Command>) :?> 'Command
  
positive.code:         | _ -> 
              match msg with
              | :? (byte[]) as bytes -> 
                  let serializer = UntypedActor.Context.System.Serialization.FindSerializerForType typeof<obj>
                  let cmd = serializer.FromBinary(bytes, typeof<'Command>) :?> 'Command
                  aggregate.exec mailbox state cmd
              | _ -> x.Unhandled msg
  
negative.code:         match msg with
          | :? 'Event as e -> state <- aggregate.apply mailbox state e
          | _ -> 
              let serializer = UntypedActor.Context.System.Serialization.FindSerializerForType typeof<'Event>
              match msg with
              | :? (byte[]) as bytes -> 
                  let e = serializer.FromBinary(bytes, typeof<'Event>) :?> 'Event
  