anchor.diff:  /// Traces the end of a target   
   let traceEndTarget name =
     match traceMode with
  -  | Console -> sprintf "Finished Target: %s" name |> trace
  +  | Console -> tracefn "Finished Target: %s" name
     | Xml     -> closeTag "target"
     ReportProgressFinish <| sprintf "Target: %s" name       
     
  
positive.code: let fakeVersion = productName.GetType().Assembly.GetName().Version 
  
  /// logs the specified string to the console
  let logMessageToConsole important s =     
    if important && buildServer <> CCNet then
      eprintfn "%s" (toRelativePath s)  
    else
      printfn "%s" (toRelativePath s)
      
  let xmlMessage s =
    sprintf "<message level=\"Info\"><![CDATA[%s]]></message>" s |> appendXML
      
  /// logs the specified string        
  let logMessage important s =
      match traceMode with
      | Console -> logMessageToConsole important s
      | Xml     -> xmlMessage s
  
  /// Logs the specified string        
  let log = logMessage false
  
  /// Logs the specified string if the verbose mode is activated.
  let logVerbose s = if verbose then log s
  
  /// Writes a trace to the command line (in the given color)
  let logColored important s color =
    Console.ForegroundColor <- color    
    logMessage important s
    Console.ForegroundColor <- ConsoleColor.White     
      
  /// Writes a trace to the command line (in green)
  let trace s = 
    logColored false s ConsoleColor.Green    
  
  /// Writes a trace to the command line (in green) if the verbose mode is activated.
  let traceVerbose s = if verbose then trace s
  
  /// Writes a trace to stderr (in green)  
  let traceImportant s = 
    logColored true s ConsoleColor.Green    
    
  /// Writes a trace to the command line (in yellow)
  let traceFAKE s = 
    logColored true s ConsoleColor.Yellow
  
  /// Traces an error (in red)
  let traceError s = 
    match traceMode with
    | Console -> logColored true s ConsoleColor.Red 
    | Xml     ->  
       appendXML "<failure><builderror>"
       xmlMessage s
       appendXML "</builderror></failure>"
    
  
  
negative.code:     EnvironTarget.Process;
      EnvironTarget.User]
      |> List.iter (fun mode ->    
          traceFAKE "Environment-Settings (%A):" mode
          environVars mode |> List.iter (tracefn "  %A"))        
   
  /// Gets the FAKE Version string
  let fakeVersionStr = 
      fakeVersion.ToString()
        |> sprintf "FAKE - F# Make - Version %s" 
  
  /// Traces the begin of the build
  let traceStartBuild _ =
  