anchor.diff:  
       let compo =
         if files = "" then "" else
  -      sprintf "<Component Id=\"%s\" Guid=\"%s\">\r\n%s\r\n</Component>\r\n" directoryInfo.Name (Guid.NewGuid().ToString()) files
  +      sprintf "<Component Id=\"%s\" Guid=\"%s\">\r\n%s\r\n</Component>\r\n" (compName directoryInfo.Name) (Guid.NewGuid().ToString()) files
   
       if asSubDir then
  -        sprintf "<Directory Id=\"di_%d\" Name=\"%s\">\r\n%s%s\r\n</Directory>\r\n" dirCount directoryInfo.Name dirs compo
  +        sprintf "<Directory Id=\"%s\" Name=\"%s\">\r\n%s%s\r\n</Directory>\r\n" (dirName directoryInfo.Name) directoryInfo.Name dirs compo
       else
           sprintf "%s%s" dirs compo
   
  
positive.code: 
  /// Creates recursive WiX directory and file tags from the given DirectoryInfo
  let rec wixDir fileFilter asSubDir (directoryInfo:DirectoryInfo) =
      dirCount <- dirCount + 1
      let dirs =
        directoryInfo
          |> subDirectories
  
negative.code:         |> Seq.map wixComponentRefs
          |> toLines
  
      if (filesInDir directoryInfo).Length > 0 then sprintf "%s<ComponentRef Id=\"%s\"/>\r\n" compos (compRefName directoryInfo.Name) else compos
  
  open System
  
  