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
   
  -Target "Clean" (fun _ -> !! "**/bin/" ++ "**/obj/" |> CleanDirs)
  -
  -Target "Tfs" (fun _ ->
  -    
  +if isTfsBuild then
       let tb = getTfsBuild()
       let bi = tb.Build.Information
  -
       listeners.Clear()
       listeners.Add(MyListener(bi))
   
   
  -//    logfn "number of build information nodes: %d" bi.Nodes.Length
  -////    for n in tb.Build.Information.Nodes do
  -////        logfn "node id: %d %A" n.Id n
  +Target "Clean" (fun _ -> !! "**/bin/" ++ "**/obj/" |> CleanDirs)
  +
  +//Target "Tfs" (fun _ ->
   //    
  -//    let main = bi.AddSummarySection 1 "a1" "The Main Section" 
  -//    main.AddMessage "this is cool"
  -//    main.AddMessage "this is a number: %d" 7
  -//    main.AddMessage "this is a link to [google](http://google.com/)"
  -//    bi.Save()
  -)
  +//
  +//
  +//
  +////    logfn "number of build information nodes: %d" bi.Nodes.Length
  +//////    for n in tb.Build.Information.Nodes do
  +//////        logfn "node id: %d %A" n.Id n
  +////    
  +////    let main = bi.AddSummarySection 1 "a1" "The Main Section" 
  +////    main.AddMessage "this is cool"
  +////    main.AddMessage "this is a number: %d" 7
  +////    main.AddMessage "this is a link to [google](http://google.com/)"
  +////    bi.Save()
  +//)
   
   Target "BuildVersion" (fun _ ->
       let args = sprintf "UpdateBuild -Version \"%s\"" buildVersion
  
positive.code: 
  
  "Clean"
      =?> ("Tfs", isTfsBuild)
      =?> ("BuildVersion", buildServer = BuildServer.AppVeyor)
      ==> "AssemblyInfo"
  //    ==> "Build"
  
negative.code: open System.Collections.Generic
  
  type MyListener(root:IBuildInformation) =
      let fakeStep = root.AddBuildStep("FAKE", "FAKE Build", DateTime.UtcNow, BuildStepStatus.Unknown)
      let mutable step = fakeStep
      interface ITraceListener with
          member x.Write msg =
              match msg with
  