anchor.diff:              return! client.DownloadStringTaskAsync (Uri url) |> Async.AwaitTask
           with
           | exn -> 
  -            return failwithf "Could not retrieve data from %s%s Message: %s%s" url Environment.NewLine exn.Message (innerText exn)
  +            return raise <| Exception(sprintf "Could not retrieve data from '%s'" url, exn)
       }
       
   /// [omit]
  
positive.code:             return! client.DownloadStringTaskAsync (Uri url) |> Async.AwaitTask
          with
          | exn -> 
              return failwithf "Could not retrieve data from %s%s Message: %s%s" url Environment.NewLine exn.Message (innerText exn)
  
      }
  
  
negative.code:             waitForUnlocked 0
              File.WriteAllText(fileName, string p.Id)
          with
          | exn when exn.Message = "timeout" ->
              failwithf "Could not acquire lock to '%s'.%sThe process timed out." fileName Environment.NewLine
          | exn ->
              if trials > 0 then 
                  let trials = trials - 1
                  tracefn "Could not acquire lock to %s.%s%s%sTrials left: %d." fileName Environment.NewLine exn.Message Environment.NewLine trials
                  acquireLock startTime timeOut trials
              else
                  raise <| Exception(sprintf "Could not acquire lock to '%s'." fileName, exn)
      
      let rec releaseLock() =
          try
  