anchor.diff:                      failwith "1"
                       return x
                   with
  -                | e -> return! failwith ("2 " + e.Message) 
  +                | e -> return! failwith ("2 " + e.Message.Trim('"')) 
               }
           let f2 x = 
               async {
                   try
                       return! f1 x
                   with
  -                | e -> return! failwith ("3 " + e.Message) 
  +                | e -> return! failwith ("3 " + e.Message.Trim('"')) 
               }
           let f() =
               async { 
  
positive.code: let ``Async.StartWithContinuations works``() =
      let res1, res2, res3 = ref "", ref "", ref ""
      Async.StartWithContinuations(successWork, (fun x -> res1 := x), ignore, ignore)
      Async.StartWithContinuations(errorWork, ignore, (fun x -> res2 := x.Message), ignore)
      Async.StartWithContinuations(cancelWork, ignore, ignore, (fun x -> res3 := x.Message))
      equal "success" !res1
      equal "error" !res2
      equal "cancelled" !res3
  
negative.code:                 do! f()
                  return ()
              with
              | e -> data := !data + e.Message.Trim('"')
          } 
          |> Async.StartImmediate
          do! Async.Sleep 100
  