anchor.diff:      tracefn "Starting Target: %s %s" name dependencyString
   
       ReportProgressStart <| sprintf "Target: %s" name
  +
  +/// Waits until the message queue is empty
  +let WaitUntilEverythingIsPrinted () =
  +     waitFor 
  +        MessageBoxIsEmpty
  +        (System.TimeSpan.FromSeconds 5.0) 
  +        100
  +        ignore
  +       |> ignore
      
   /// Traces the end of a target   
   let traceEndTarget name =
  
positive.code:     if traceMode = Xml then closeTag "target"
  
      ReportProgressFinish <| sprintf "Target: %s" name
    
  /// Traces the begin of a task
  let traceStartTask task description =
  
negative.code:     | Console -> ()
      | Xml     -> closeTag "task"
  
      ReportProgressFinish <| sprintf "Task: %s %s" task description