anchor.diff:                      target.FinishTime <- DateTime.UtcNow
                       target <- defaultTarget
   //                    root.Save()
  +    member x.Save() = root.Save()
   
   //listeners.Clear()
   //listeners.Add(MyListener())
  
positive.code: let versionInfo = sprintf "%s %s %s" versionAssembly dt.IsoDateTime revision
  let buildVersion = if String.IsNullOrEmpty prerelease then versionFile else sprintf "%s-%s" versionFile prerelease
  
  if isTfsBuild then
      let tb = getTfsBuild()
      let bi = tb.Build.Information
      listeners.Clear()
      listeners.Add(MyListener(bi))
  
  
  
negative.code: 
  open System.Collections.Generic
  
  //[<AllowNullLiteral>]
  type MyListener(root:IBuildInformation) =
      let defaultTarget = root.AddBuildStep("no target", "no target", DateTime.UtcNow, BuildStepStatus.Unknown)
      let mutable target = defaultTarget
  