anchor.diff:  
       let startInMemoryEventStore () =
           ensureNoZombieEventStores ()
  -        let eventStoreProcess = startNewProcess ()
  -        let connection = connectToEventStore ()
  -
  +        let (testTcpPort, testHttpPort, eventStoreProcess) = startNewProcess ()
  +        let connection = connectToEventStore testTcpPort
           {
               Process = eventStoreProcess
               Connection = connection
  
positive.code:             with | ex -> Console.WriteLine(sprintf "Error stopping process: %A" ex)
  
      let startNewProcess () =
          let processArguments = 
              let timeoutOptions = "--Int-Tcp-Heartbeat-Timeout=50000 --Ext-Tcp-Heartbeat-Timeout=50000"
              let portOptions = 
  
negative.code:                 if line <> null then
                      IntegrationTests.log.Debug (lazy line)
                  if line <> null && line.Contains("SystemInit") then started <- true
              (testTcpPort, testHttpPort, eventStoreProcess)
          with | _ ->
              eventStoreProcess.Kill()
              reraise()
  
      let connectToEventStore testTcpPort=
          let ipEndPoint = new System.Net.IPEndPoint(System.Net.IPAddress.Loopback, testTcpPort)
          let connectionSettingsBuilder = 
              ConnectionSettings
  