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:                 | 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) ]
                      let nested = fields@topMembers
                      [ createDeclLid(baseName, lid, TypeDecl, FSharpGlyph.Type, m, bodyRange mb nested, nested, FSharpEnclosingEntityKind.Record, false, access) ]
                  | SynTypeDefnSimpleRepr.TypeAbbrev(_, _, mb) ->
  
negative.code:                      | _ -> [])) 
              
              (members |> Seq.map fst |> Seq.fold unionRangesChecked range.Zero),
              (members |> List.collect snd)
  
          // Process declarations in a module that belong to the right drop-down (let bindings)
          let processNestedDeclarations decls = decls |> List.collect (function
  