anchor.diff:          match Path.GetExtension(destination).ToLowerInvariant() with
           | ".zip" ->
               let targetFolder = FileInfo(destination).Directory
  -            CleanDir targetFolder.FullName
  +            if not targetFolder.Exists then
  +                targetFolder.Create()
   
               do! downloadFromUrl(authentication, url) destination
               ZipFile.ExtractToDirectory(destination, targetFolder.FullName)
  
positive.code:                 } 
              ) |> Async.Parallel
          task |> Async.RunSynchronously |> ignore
  
      | Origin.GitHubLink, Constants.FullProjectSourceFileName ->  
          tracefn "Downloading %O to %s" remoteFile destination
          let fi = FileInfo(destination)
  
negative.code:                     msg |> Seq.iter (tracefn "%s")
              with 
              | exn -> failwithf "Could not run \"%s\".\r\nError: %s" tCommand exn.Message
      | Origin.GistLink, Constants.FullProjectSourceFileName ->
          tracefn "Downloading %O to %s" remoteFile destination
          let fi = FileInfo(destination)
  