anchor.diff:      EnvironTarget.Process;
       EnvironTarget.User]
       |> List.iter (fun mode ->    
  -        traceFAKE (sprintf "Environment-Settings (%A):" mode)
  -        environVars mode |> List.iter (sprintf "  %A" >> trace))        
  +        traceFAKE "Environment-Settings (%A):" mode
  +        environVars mode |> List.iter (tracefn "  %A"))        
    
   /// Gets the FAKE Version string
  -let fakeVersionStr = sprintf "FAKE - F# Make - Version %s" (fakeVersion.ToString())
  +let fakeVersionStr = 
  +    fakeVersion.ToString()
  +      |> sprintf "FAKE - F# Make - Version %s" 
   
   /// Traces the begin of the build
   let traceStartBuild _ =
  
positive.code: /// Traces the end of a target   
  let traceEndTarget name =
    match traceMode with
    | Console -> sprintf "Finished Target: %s" name |> trace
    | Xml     -> closeTag "target"
    ReportProgressFinish <| sprintf "Target: %s" name       
    
  
negative.code:   match traceMode with
    | Console -> ()
    | Xml     -> closeTag "task" 
    ReportProgressFinish <| sprintf "Task: %s %s" task description       