anchor.diff:  let versionInfo = sprintf "%s %s %s" versionAssembly dt.IsoDateTime revision
   let buildVersion = if String.IsNullOrEmpty prerelease then versionFile else sprintf "%s-%s" versionFile prerelease
   
  +let tfsLogger = MyListener(null)
   if isTfsBuild then
       let tb = getTfsBuild()
       let bi = tb.Build.Information
       listeners.Clear()
  +    tfsLogger = MyListener(bi)
       listeners.Add(MyListener(bi))
   
   
  
positive.code: 
  open System.Collections.Generic
  
  type MyListener(root:IBuildInformation) =
      let defaultTarget = root.AddBuildStep("no target", "no target", DateTime.UtcNow, BuildStepStatus.Unknown)
      let mutable target = defaultTarget
  
negative.code: //    stB.Node.Children.AddBuildMessage("this is another bm for b", BuildMessageImportance.High, DateTime.UtcNow) |> ignore
      
  
      if isTfsBuild then
          tfsLogger.Save()
          
  
  //    bi.Save()
  )
  
  
  