anchor.diff:  
       /// Start connection to all peers
       member internal x.ConnectAll() = 
  +        x.InitializeQueues()
           for peeri=0 to x.NumNodes-1 do
               x.QueueForWrite(peeri) |> ignore
  -        x.InitializeQueues()
   
       /// Disconnect all peers. 
       member internal x.DisconnectAll() = 
  
positive.code:         x.CommunicationInited.Force() |> ignore
  
      member internal x.QueueForWrite( peeri ) =
          try 
              let queue = ref x.Queues.[peeri]
              if Utils.IsNull !queue then
  
negative.code: //    let clusterUpdateTimer = Timer( ClusterInfo.PeriodicClusterUpdate, 
  //                                        clusterStatus, Timeout.Infinite, Timeout.Infinite)
      let mutable expectedClusterSize = 0 
      let mutable queues : NetworkCommandQueue[] = null
      let mutable bFailedMsgShown = Array.create 0 false 
      // clock for communication 
      let clock = System.Diagnostics.Stopwatch.StartNew()
  