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