anchor.diff:      let getProjectModel proj =
           let projects = Project.getLoaded ()
   
  -        let files = proj.Files |> List.map ( fun p -> File(p, path.basename p, proj.Project)) |> FileList
  +        let files =
  +            proj.Files
  +            |> List.map ( fun p ->
  +                let n = path.relative(path.dirname proj.Project, p)
  +
  +                File(p, n, proj.Project))
  +            |> FileList
           let refs = proj.References |> List.map (fun p -> Reference(p, path.basename p, proj.Project)) |> ReferenceList
           let projs = proj.References |> List.choose (fun r -> projects |> Seq.tryFind (fun pr -> pr.Output = r)) |> List.map (fun p -> ProjectReference(p.Project, path.basename(p.Project, ".fsproj"), proj.Project))  |> ProjectReferencesList
           let name = path.basename(proj.Project, ".fsproj")
  
positive.code:         | ReferenceList _ -> "References"
          | ProjectReferencesList refs -> "Project References"
          | FileList _ -> "Files"
          | File (_, name, _) -> name
          | Reference (_, name, _) -> name
          | ProjectReference (_, name, _) -> name
  
negative.code:         | FileList of Files: Model list
          | ProjectReferencesList of Projects : Model list
          | Project of path: string * name: string * FileList: Model  * ProjectReferencesList : Model  * ReferenceList: Model
          | Folder of name : string * Files : Model list
          | File of path: string * name: string * projectPath : string
          | Reference of path: string * name: string * projectPath : string
          | ProjectReference of path: string * name: string * projectPath : string
  