anchor.diff:        // Messages.ExecuteAsyncRequest Type for MS CRM 2011 (legacy)
         let areq = new Messages.ExecuteAsyncRequest()
         areq.Request <- req
  -      p.Execute(areq) :?> Messages.ExecuteAsyncResponse |> ignore
  +      p.Execute(areq) :?> Messages.ExecuteAsyncResponse 
  +      |> fun r -> r.AsyncJobId
         
       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 aJobId = 
  +          match CrmDataInternal.Info.version p with
  +          | (_, CrmReleases.CRM2011) -> 
  +            p.Execute(req) :?> Messages.ImportSolutionResponse |> ignore
  +            None
  +          | (_, _) -> Some (importHelperAsync())
  +        let! progress = Async.StartChild(importHelper' false false 0. aJobId)
           let! waitForProgress = progress
           waitForProgress
         }
  
positive.code:     req.OverwriteUnmanagedCustomizations <- true
      log.WriteLine(LogLevel.Verbose, @"Proxy timeout set to 1 hour")
  
      let rec importHelper' exists completed progress = 
        async { 
          match exists with
          | false -> 
            // TODO: Return error if the job is never created
            // Indicated by exist always being false 
            let exists' = 
              use p' = ServiceProxy.getOrganizationServiceProxy m tc
              CrmDataInternal.Entities.existCrm p' @"importjob" jobId None
            do! importHelper' exists' completed progress
          | true -> 
            match completed with
            | true -> ()
  
negative.code:                 log.WriteLine
                    (LogLevel.Verbose, @"The solution was successfully published")
                return ()
              do! importHelper' exists completed' pct aJobId
        }
        
      let importHelperAsync() = 
  