anchor.diff:    | _ -> 
       diff
       |> Set.toSeq
  -    |> subset target
  +    |> lookup target takeGuid
       |> Seq.map( fun (x,_) ->
         CrmDataInternal.Entities.updateStateReq ln x 0 1 :> OrganizationRequest )
       |> Seq.toArray
  
positive.code:       (asmLogicName, dgSol.keepAssemblies, targetAsms, takeGuid, None)
        (webResLogicalName, dgSol.keepWebresources, targetWebRes, takeGuid, None)
        (workflowLogicalName, dgSol.keepWorkflows, targetWorkflows, takeGuid, Some(deactivateWorkflows))|]
      |> Array.iter(fun (ln, source, target, fieldCompFunc, func) ->   
          
        let s = source |> Seq.map fieldCompFunc |> Set.ofSeq
        let t = target |> Seq.map fieldCompFunc |> Set.ofSeq
        let diff = t - s
  
        match func with
        | None   -> ()
        | Some f -> f p ln target diff log
          
        log.Verbose "Found %d '%s' entities to be deleted " diff.Count ln
        match diff.Count with
  
negative.code:     log.Verbose "Solution name '%s' from solution.xml differs from solutionName argument: '%s'" zipSolutionName solutionName
      log.Verbose "Using '%s'" zipSolutionName
      zipSolutionName
  
  // Fetches the entity of views in a packaged solution file from an exported 
  // solution
  