anchor.diff:                  | SynTypeDefnSimpleRepr.Record(_, fields, mb) ->
                       let fields = 
                           [ for (Field(_, _, id, _, _, _, _, m)) in fields do
  -                            if (id.IsSome) then
  -                              yield createMember(id.Value, FieldDecl, FSharpGlyph.Field, m, FSharpEnclosingEntityKind.Record, false, access) ]
  +                            match id with
  +                            | Some ident -> 
  +                                yield createMember(ident, FieldDecl, FSharpGlyph.Field, m, FSharpEnclosingEntityKind.Record, false, access)
  +                            | _ -> 
  +                                () ]
                       let nested = fields@topMembers
                       [ createDeclLid(baseName, lid, TypeDecl, FSharpGlyph.Type, m, bodyRange mb nested, nested, FSharpEnclosingEntityKind.Record, false, access) ]
                   | SynTypeDefnSimpleRepr.TypeAbbrev(_, _, mb) ->
  
positive.code:         else unionRanges r1 r2
      
      let rangeOfDecls2 f decls = 
        match (decls |> List.map (f >> (fun (d:FSharpNavigationDeclarationItem) -> d.bodyRange))) with 
        | hd :: tl -> tl |> List.fold unionRangesChecked hd
        | [] -> range.Zero
      
      let rangeOfDecls = rangeOfDecls2 fst
  
  
negative.code:     /// Get information for implementation file      
      let getNavigationFromImplFile (modules: SynModuleOrNamespace list) =
          // Map for dealing with name conflicts
          let names = Dictionary()
  
          let addItemName name = 
              let count =
                  match names.TryGetValue name with
                  | true, count -> count + 1
                  | _ -> 1
              names.[name] <- count
              count
          
          let uniqueName name idx = 
              let total = names.[name]
              sprintf "%s_%d_of_%d" name idx total
  
          // Create declaration (for the left dropdown)                
  