anchor.diff:        TargetArguments = ""
         TargetWorkingDir = ""
         Output = "DotCover.snapshot"
  -      Filters = "" }
  +      Filters = "" 
  +      CustomParameters = "" }
   
   type DotCoverMergeParams = 
       { ToolPath: string
         WorkingDir: string
         Source: string list
         Output: string
  -      TempDir: string }
  +      TempDir: string
  +      CustomParameters: string }
   
   let DotCoverMergeDefaults =
        { ToolPath = findToolInSubPath "dotcover.exe" (currentDirectory @@ "tools" @@ "DotCover")
          WorkingDir = ""
          Source = []
          Output = "DotCover.snapshot"
  -       TempDir = "" }
  +       TempDir = ""
  +       CustomParameters = "" }
   
   type DotCoverReportParams = 
       { ToolPath: string
         WorkingDir: string
         Source: string
         Output: string
  -      ReportType: DotCoverReportType }
  +      ReportType: DotCoverReportType
  +      CustomParameters: string }
         
   let DotCoverReportDefaults : DotCoverReportParams =
        { ToolPath = findToolInSubPath "dotcover.exe" (currentDirectory @@ "tools" @@ "DotCover")
          WorkingDir = ""
          Source = ""
          Output = "DotCover.xml"
  -       ReportType = DotCoverReportType.Xml }
  +       ReportType = DotCoverReportType.Xml
  +       CustomParameters = "" }
   
   let buildDotCoverArgs parameters =
       new StringBuilder()
  
positive.code:     |> appendIfNotNullOrEmpty parameters.Source "/Source="
      |> appendIfNotNullOrEmpty parameters.Output "/Output="
      |> appendIfNotNullOrEmpty (parameters.ReportType.ToString()) "/ReportType="
      |> toText
  
  
  
negative.code:     |> appendIfNotNullOrEmpty (parameters.Source |> String.concat ";") "/Source="
      |> appendIfNotNullOrEmpty parameters.Output "/Output="
      |> appendIfNotNullOrEmpty parameters.TempDir "/TempDir="
      |> appendWithoutQuotes parameters.CustomParameters
      |> toText
      
  let buildDotCoverReportArgs parameters =
  