anchor.diff:                      tests |> List.iter (fun w -> runtest s w)
                       wipTest <- false
                   else if s.Manys.IsEmpty = false then
  -                    s.Manys |> List.iter (fun m -> runtest s m)
  +                    s.Manys |> List.rev |> List.iter (fun m -> runtest s m)
                   else
                       let tests = s.Tests @ s.Always |> List.sortBy (fun t -> t.Number)
                       tests |> List.iter (fun t -> runtest s t)
               s.Lastly ()                  
   
  -            if contextFailed = true then failedContexts <- failedContexts @ [s.Context]
  +            if contextFailed = true then failedContexts <- s.Context::failedContexts
               if s.Context <> null then reporter.contextEnd s.Context
       )
       
  
positive.code:     reporter.suiteEnd()
  
  let runFor browsers =
      let currentSuites = suites
      suites <- [new suite()]
      match box browsers with
          | :? (types.BrowserStartMode list) as browsers -> 
  
negative.code: open types
  open OpenQA.Selenium
  
  let private last = function
      | hd :: tl -> hd
      | [] -> failwith "Empty list."
  
  let mutable suites = [new suite()]
  let mutable todo = fun () -> ()
  