anchor.diff:  
       [<Test>]
       member public this.``ReferenceResolution.Bug4423.LoadedFsProj.WorksWithFilenames``() =
  -        match (Net20AssemExPath(), Net35RefAssemPath()) with
  -        | Some(net20), Some(net35) ->
  -          let edte = Path.Combine(net20, "EnvDTE80.dll")
  -          let ssmw = Path.Combine(net35, "System.ServiceModel.Web.dll")
  -          this.MakeProjectAndDo(["doesNotMatter.fs"], [edte; ssmw], "", "v3.5", (fun project ->
  -              let expectedRefInfo = [ edte, true 
  -                                      ssmw, true ]
  -              let refContainer = GetReferenceContainerNode(project)
  -              let actualRefInfo = [
  -                  let r = ref(refContainer.FirstChild :?> ReferenceNode)
  -                  while !r <> null do
  -                      yield ((!r).Caption, ((!r).CanShowDefaultIcon()))
  -                      r := (!r).NextSibling :?> ReferenceNode
  -                  ]
  -              AssertEqual expectedRefInfo actualRefInfo
  -              ))
  -        |_ -> ()
  +            let netDir = currentFrameworkDirectory
  +            let ssmw = Path.Combine(netDir, "System.ServiceModel.Web.dll")
  +            this.MakeProjectAndDo(["doesNotMatter.fs"], [ssmw], "", "v4.0", (fun project ->
  +            let expectedRefInfo = [ ssmw, true ]
  +            let refContainer = GetReferenceContainerNode(project)
  +            let actualRefInfo = [
  +              let r = ref(refContainer.FirstChild :?> ReferenceNode)
  +              while !r <> null do
  +                  yield ((!r).Caption, ((!r).CanShowDefaultIcon()))
  +                  r := (!r).NextSibling :?> ReferenceNode
  +              ]
  +            AssertEqual expectedRefInfo actualRefInfo
  +            ))
   
       [<Test>]
       member public this.``ReferenceResolution.Bug4423.LoadedFsProj.WeirdCases``() =
  
positive.code:     inherit TheTests()
  
      //TODO: look for a way to remove the helper functions
      static let Net35RefAssemPath () =
          let key = @"SOFTWARE\Microsoft\.NETFramework\AssemblyFolders\Microsoft .NET Framework 3.5 Reference Assemblies"
          let hklm = Registry.LocalMachine
          let rkey = hklm.OpenSubKey(key)
          let path = rkey.GetValue("") :?> string
          if String.IsNullOrEmpty(path) then None
          else Some(path)
      static let Net20AssemExPath () =
          let key = @"SOFTWARE\Microsoft\.NETFramework\v2.0.50727\AssemblyFoldersEx\Public Assemblies (Common Files)"
          let hklm = Registry.LocalMachine
  
negative.code: 
      [<Test>]
      member public this.``ReferenceResolution.Bug4423.LoadedFsProj.Works``() =
          this.MakeProjectAndDo(["doesNotMatter.fs"], ["mscorlib"; "System"; "System.Core"; "System.Net"], "", "v4.0", (fun project ->
              let expectedRefInfo = [ "mscorlib", true
                                      "System", true
                                      "System.Core", true
  