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: 
          // Process declarations nested in a module that should be displayed in the left dropdown
          // (such as type declarations, nested modules etc.)                            
          let rec processFSharpNavigationTopLevelSigDeclarations(baseName, decls) = decls |> List.collect (function
              | SynModuleSigDecl.ModuleAbbrev(id, lid, m) ->
                  [ createDecl(baseName, id, ModuleDecl, FSharpGlyph.Module, m, rangeOfLid lid, [], FSharpEnclosingEntityKind.Module, false, None) ]
                  
              | SynModuleSigDecl.NestedModule(ComponentInfo(_, _, _, lid, _, _, access, _), _, decls, m) ->                
                  // Find let bindings (for the right dropdown)
                  let nested = processNestedSigDeclarations(decls)
                  let newBaseName = (if (baseName = "") then "" else baseName+".") + (textOfLid lid)
                  
                  // Get nested modules and types (for the left dropdown)
                  let other = processFSharpNavigationTopLevelSigDeclarations(newBaseName, decls)
  
negative.code: 
  namespace FSharp.Compiler.SourceCodeServices
  
  open System.Collections.Generic
  open FSharp.Compiler.Range
  open FSharp.Compiler.SyntaxTree
  open FSharp.Compiler.SyntaxTreeOps
  