anchor.diff:      | Some x -> x
       | None -> failwithf "Package directory for package %s was not found." name
   
  -let private findPackagesWithContent (root,usedPackages:Map<PackageName,PackageInstallSettings>) = 
  +let private findPackagesWithContent (root,usedPackages:Map<PackageName,PackageInstallSettings>) =
       usedPackages
       |> Seq.filter (fun kv -> defaultArg kv.Value.Settings.OmitContent false |> not)
       |> Seq.map (fun kv -> findPackageFolder root kv.Key)
  -    |> Seq.choose (fun packageDir -> 
  -            packageDir.GetDirectories("Content") 
  +    |> Seq.choose (fun packageDir ->
  +            packageDir.GetDirectories("Content")
               |> Array.append (packageDir.GetDirectories("content"))
               |> Array.tryFind (fun _ -> true))
       |> Seq.toList
   
  -let private copyContentFiles (project : ProjectFile, packagesWithContent) = 
  +let private copyContentFiles (project : ProjectFile, packagesWithContent) =
   
       let rules : list<(FileInfo -> bool)> = [
               fun f -> f.Name = "_._"
  
positive.code: 
          removeCopiedFiles project
  
          let getSingleRemoteFilePath name = 
              traceVerbose <| sprintf "Filename %s " name
              lockFile.SourceFiles |> List.iter (fun i -> traceVerbose <| sprintf " %s %s " i.Name (i.FilePath root))
              let sourceFile = lockFile.SourceFiles |> List.tryFind (fun f -> Path.GetFileName(f.Name) = name)
  
negative.code:     |> ProjectFile.FindAllProjects
      |> Array.choose (fun p -> ProjectFile.FindReferencesFile(FileInfo(p.FileName))
                                  |> Option.map (fun r -> p, r))
      |> Array.map (fun (project,file) ->
          try
              ok <| (project, ReferencesFile.FromFile(file))
          with _ ->
              fail <| ReferencesFileParseError (FileInfo(file)))
      |> collect
  
  /// Installs all packages from the lock file.
  let InstallIntoProjectsNew(sources, options : CommonOptions, lockFile : LockFile, projects) =
      let root = Path.GetDirectoryName lockFile.FileName
      let extractedPackages = createModel(root, sources, options.Force, lockFile)
  
      let model =
          extractedPackages
  