anchor.diff:  
         let obsoleteImage = targetImage - sourceImage
   
  -      deleteImages log m tc (obsoleteImage,images))
  -
  -    asm, asmId, dllName, dllPath, hash, solution, m, tc, log, sourcePlugins, steps
  -
  -  let deletePluginSteps (asm, (asmId:Guid), (dllName:string), (dllPath:string),
  -                          (hash:string), (solution:Entity), m, tc, 
  -                            (log:ConsoleLogger.ConsoleLogger), sourcePlugins, steps) = 
  -
  +      deleteImages log client (obsoleteImage,images))
  +    
  +    solution, client, log, sourcePlugins, steps
  +
  +  let deletePluginSteps (solution, client, (log:ConsoleLogger.ConsoleLogger), sourcePlugins, steps) = 
       //Delete Steps
       let targetSteps =
         steps
  
positive.code:     b |> Seq.filter(fun x -> 
        let z = getName x
        ((fun y -> y = z),a) ||> Seq.exists)
    let subset' (xs:(int*string) Set) (ys:(int*Entity) seq) = 
      ys
      |> Seq.filter(fun (y,y') -> 
  
negative.code:                   
  
    let createPluginSteps (log:ConsoleLogger.ConsoleLogger) (solution:Entity) 
      client entitySet plugins (pluginType: Entity) = 
        entitySet |> Set.toArray
        |> Array.Parallel.map(fun (_,y) ->
  
          use p = ServiceProxy.getOrganizationServiceProxy client.IServiceM client.authCred
  
          let step = 
            plugins
            |> Seq.filter(fun pl -> y = messageName pl.step)
  