anchor.diff:      
           member this.suggestSelectors selector suggestions = consoleReporter.suggestSelectors selector suggestions
       
  -        member this.testStart id = consoleReporter.describe (String.Format("##teamcity[testStarted name='{0}']", (tcFriendlyMessage id)))
  -    
  -        member this.testEnd id = consoleReporter.describe (String.Format("##teamcity[testFinished name='{0}']", (tcFriendlyMessage id)))
  +        member this.testStart id = teamcityReport (sprintf "testStarted name='%s'" (tcFriendlyMessage id))
  +    
  +        member this.testEnd id = teamcityReport (sprintf "testFinished name='%s'" (tcFriendlyMessage id))
   
           member this.quit () = ()
           
  
positive.code:         let message = message.Replace("]", "|]")
          message
  
      interface IReporter with               
          member this.pass () = consoleReporter.pass ()
      
  
negative.code:         member this.skip () = ()
  
  type TeamCityReporter() =
  
      let flowId = System.Guid.NewGuid().ToString()
  
      let consoleReporter : IReporter = new ConsoleReporter() :> IReporter
      let tcFriendlyMessage (message : string) = 
          let message = message.Replace("|", "||")
  