anchor.diff:              with | ex -> Console.WriteLine(sprintf "Error stopping process: %A" ex)
   
       let startNewProcess () =
  +        let testTcpPort = findFreeTcpPort()
  +        let testHttpPort = findFreeTcpPort()
           let processArguments = 
               let timeoutOptions = "--Int-Tcp-Heartbeat-Timeout=50000 --Ext-Tcp-Heartbeat-Timeout=50000"
               let portOptions = 
  
positive.code: 
      let startInMemoryEventStore () =
          ensureNoZombieEventStores ()
          let eventStoreProcess = startNewProcess ()
          let connection = connectToEventStore ()
  
          {
              Process = eventStoreProcess
              Connection = connection
  
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
  