anchor.diff:      r "http://schemas.openxmlformats.org/package/2006/relationships/metadata/core-properties" ("/" + corePropsPath) corePropsId
       XDocument(declaration, box root)
   
  -let xDocWriter (xDoc : XDocument) (stream : System.IO.Stream) = 
  +let xDocWriter (xDoc : XDocument) (stream : System.IO.Stream) =
       let settings = new XmlWriterSettings(Indent = true, Encoding = Encoding.UTF8)
       use xmlWriter = XmlWriter.Create(stream, settings)
       xDoc.WriteTo xmlWriter
       xmlWriter.Flush()
   
  -let writeNupkg  (core : CompleteCoreInfo) optional = 
  +let writeNupkg  (core : CompleteCoreInfo) optional =
       [ core.NuspecFileName, nuspecDoc(core,optional) |> xDocWriter
         corePropsPath, corePropsDoc core |> xDocWriter
         relsPath, relsDoc core |> xDocWriter ]
   
  -let Write (core : CompleteCoreInfo) optional workingDir outputDir = 
  +let Write (core : CompleteCoreInfo) optional workingDir outputDir =
       let outputPath = Path.Combine(outputDir, core.PackageFileName)
       if File.Exists outputPath then
           File.Delete outputPath
  
positive.code: 
  let corePropsPath = sprintf "package/services/metadata/core-properties/%s.psmdcp" corePropsId
  
  let corePropsDoc (core : CompleteCoreInfo) = 
      let declaration = XDeclaration("1.0", "UTF-8", "yes")
      let ns = XNamespace.Get "http://schemas.openxmlformats.org/package/2006/metadata/core-properties"
      let dc = XNamespace.Get "http://purl.org/dc/elements/1.1/"
      let dcterms = XNamespace.Get "http://purl.org/dc/terms/"
      let xsi = XNamespace.Get "http://www.w3.org/2001/XMLSchema-instance"
      let root = 
          XElement
              (ns + "Relationships", XAttribute(XName.Get "xmlns", ns.NamespaceName), 
               XAttribute(XNamespace.Xmlns + "dc", dc.NamespaceName), 
               XAttribute(XNamespace.Xmlns + "dcterms", dcterms.NamespaceName), 
               XAttribute(XNamespace.Xmlns + "xsi", xsi.NamespaceName))
      
      let (!!) (ns : XNamespace) name value = 
          let node = XElement(ns + name)
          node.SetValue value
          root.Add node
  
negative.code:                 if not <| isExcluded file then
                      let fi = FileInfo file
                      let path = Path.Combine(target,fi.Name)
  
                      addEntryFromFile path fi.FullName
  
              for dir in Directory.EnumerateDirectories(source,"*",SearchOption.TopDirectoryOnly) do
  