anchor.diff:                  this.BeginUpdate()
                   node.Nodes.Clear() //clear dummy node
                   let createWatchTreeNode = createWatchTreeNode context
  -                let asyncNodes = 
  -                    [| for (tn, a) in watch.Children |> Seq.map createWatchTreeNode do
  +                let asyncNodes = [| 
  +                    for (tn, a) in watch.Children |> Seq.map createWatchTreeNode do
                           node.Nodes.Add(tn) |> ignore
                           match a with
                           | Some(a) -> yield a
  
positive.code:         match tn.Tag with
          | :? Watch as w -> Watch(w)
          | _ -> Archive
  
      ///The text used for constructing "dummy" TreeNodes used as a place-holder until childnodes are 
      ///loaded lazily.
  
negative.code: 
          ///Clear all archives and reset the archive count.
          member this.ClearArchives() =
              this.ClearAll isArchive
              archiveCounter <- 0
  
          ///Clear all watches (doesn't include archive nodes).
          member this.ClearWatches() =
              this.ClearAll isWatch
  
          ///Clear all archives (reseting archive count) and watches.
          member this.ClearAll() =
  