anchor.diff:        (proxy, sol))
       |> function [| dev_sol; prod_sol |] -> (dev_sol, prod_sol) | _ -> failwith "Impossible"
     // Get publisher from [complete solution]
  -  let complete_sol = 
  -    match fetch_solution dev_proxy complete_solution_name with
  -      | None -> failwith "Complete solution not found; impossible" 
  -      | Some s -> s
  +  let complete_sol = fetch_solution dev_proxy complete_solution_name
     // Create new [partial solution] on DEV
     let id = create_solution dev_proxy temporary_solution_name complete_sol.Attributes.["publisherid"]
     try
  
positive.code: open System.Text.RegularExpressions
  open System.Threading
  open DG.Daxif.Modules.Solution
  
  let rec assoc_right_opt key map = 
    match map with
  
negative.code:   printf "Exporting extended solution %A" (file_location + sol_name)
    SolutionHelper.exportWithExtendedSolution' env.url ac ac' sol_name file_location false (DG.Daxif.ConsoleLogger DG.Daxif.LogLevel.Verbose)
    file_location + sol_name
  
  let rec download_with_retry (env: DG.Daxif.Environment) file_location sol_name minutes retry_count =
    if retry_count > 0 then
  