anchor.diff:            member this.IsIncompleteTypeCheckEnvironment = false
             member this.TargetFrameworkMoniker = ""
             member this.LoadTime = System.DateTime(2000,1,1)
  +          member this.ProjectGuid = 
  +                let projectObj, projectObjFlags = MSBuild.CrackProject(projectfile, configurationFunc(), platformFunc())
  +                projectObj.GetProperty(ProjectFileConstants.ProjectGuid).EvaluatedValue
           
       // Attempt to treat as MSBuild project.
       let internal NewMSBuildProjectSite(configurationFunc, platformFunc, msBuildProjectName) = 
  
positive.code: 
              try        
                  try 
                      GetFlagsAndSources(project,host)
                  with e -> 
                      System.Diagnostics.Debug.Assert(false, sprintf "Bug seen in MSBuild CrackProject: %s %s %s\n" (e.GetType().Name) e.Message (e.StackTrace))
                      reraise()
  
negative.code:                 timestamp <- newtimestamp
                  prevConfig <- curConfig
                  prevPlatform <- curPlatform
                  let projectObj, projectObjFlags = MSBuild.CrackProject(projectfile, prevConfig, prevPlatform)
                  flags <- Some(projectObjFlags)
              match flags with
              | Some flags -> flags
              | _ -> raise Error.Bug
  