anchor.diff:    match traceMode with
     | Console -> ()
     | Xml     -> closeTag "task" 
  -  ReportProgressFinish <| sprintf "Task: %s %s" task description
  -   
  -    
  -       +  ReportProgressFinish <| sprintf "Task: %s %s" task description       
positive.code: let traceStartTarget name dependencyString =
    match traceMode with
    | Console -> 
        trace <| sprintf "Starting Target: %s %s" name dependencyString
    | Xml     -> 
        openTag "target"
        appendXML <| sprintf "<target name=\"%s\">" name
  
negative.code: /// Traces the end of a target   
  let traceEndTarget name =
    match traceMode with
    | Console -> tracefn "Finished Target: %s" name
    | Xml     -> closeTag "target"
    ReportProgressFinish <| sprintf "Target: %s" name       
    
  