anchor.diff:                  log.WriteLine
                     (LogLevel.Verbose, @"The solution was successfully published")
                 return ()
  -            do! importHelper' exists completed' pct
  +            do! importHelper' exists completed' pct aJobId
         }
         
       let importHelperAsync() = 
  
positive.code:       // Messages.ExecuteAsyncRequest Type for MS CRM 2011 (legacy)
        let areq = new Messages.ExecuteAsyncRequest()
        areq.Request <- req
        p.Execute(areq) :?> Messages.ExecuteAsyncResponse |> ignore
        
      let importHelper() = 
        async { 
          let! progress = Async.StartChild(importHelper' false false 0.)
          match CrmDataInternal.Info.version p with
          | (_, CrmReleases.CRM2011) -> 
            p.Execute(req) :?> Messages.ImportSolutionResponse |> ignore
          | (_, _) -> importHelperAsync()
          let! waitForProgress = progress
          waitForProgress
        }
  
negative.code:     req.OverwriteUnmanagedCustomizations <- true
      log.WriteLine(LogLevel.Verbose, @"Proxy timeout set to 1 hour")
  
      let rec importHelper' exists completed progress aJobId = 
        async { 
          use p' = ServiceProxy.getOrganizationServiceProxy m tc
          match exists with
          | false -> 
            match aJobId with
              | None -> ()
              | Some id ->
                let systemJob = CrmData.CRUD.retrieve p' "asyncoperation" id
                let s = systemJob.Attributes.["statuscode"] :?> OptionSetValue 
                      |> fun o -> o.Value
                match s with
                  | 31 | 32 -> //Failed || Cancelled
                    log.WriteLine(LogLevel.Verbose, "Asynchronous import job failed")
                    string systemJob.Attributes.["message"]
                    |> sprintf "Failed with message: %s"
                    |> failwith 
                  | _ -> ()
  
            let exists' = 
              CrmDataInternal.Entities.existCrm p' @"importjob" jobId None
            do! importHelper' exists' completed progress aJobId
          | true -> 
            match completed with
            | true -> ()
  