anchor.diff:      let cat = if isTest then "TestProject"
                 else "Project"
   
  +    let label = System.IO.Path.GetFileNameWithoutExtension(project.RelativeProjectFile.toString)
  +    let output = project.Output.toString
  +    let outputType = project.OutputType.toString
  +
       XElement(NsDgml + "Node",
           XAttribute(NsNone + "Id", project.ProjectGuid.toString),
  -        XAttribute(NsNone + "Label", project.Output.toString),
  +        XAttribute(NsNone + "Label", label),
           XAttribute(NsNone + "Category", cat),
           XAttribute(NsNone + "Fx", project.FxTarget.toString),
           XAttribute(NsNone + "Guid", project.ProjectGuid.toString),
  -        XAttribute(NsNone + "IsTest", isTest))
  +        XAttribute(NsNone + "IsTest", isTest),
  +        XAttribute(NsNone + "Output", output),
  +        XAttribute(NsNone + "OutputType", outputType))
   
   let GenerateNode (source : string) (label : string) (category : string) =
       XElement(NsDgml + "Node",
  
positive.code:             XElement(NsDgml + "Setter", XAttribute(NsNone + "Property", "Icon"), XAttribute(NsNone + "Value", "CodeSchema_Method"))))
  
  
  let GraphContent (antho : Anthology) (projects : Project set) =
      let repos = projects |> Set.map (fun x -> x.Repository)
      let xNodes = XElement(NsDgml + "Nodes", GraphNodes antho projects)
      let xLinks = XElement(NsDgml+"Links", GraphLinks antho projects)
  
negative.code: let GraphProperties () =
      let allProperties = [ ("Fx", "Target Framework Version", "System.String")
                            ("Guid", "Project Guid", "System.Guid") 
                            ("IsTest", "Test Project", "System.Boolean")
                            ("Output", "Project Output", "System.String") 
                            ("OutputType", "Project Output Type", "System.String") ]
  
      let generateProperty (prop) =
          let (id, label, dataType) = prop
  