anchor.diff:                         let ilPropTy = GenType cenv.amap m eenvUnderMethTypeTypars.tyenv vtyp
                          let ilArgTys = v |> ArgInfosOfPropertyVal cenv.g |> List.map fst |> GenTypes cenv.amap m eenvUnderMethTypeTypars.tyenv 
                          let ilPropDef = GenPropertyForMethodDef compileAsInstance tref mdef v memberInfo ilArgTys ilPropTy (mkILCustomAttrs ilAttrsThatGoOnPrimaryItem) compiledName
  -                       mgbuf.AddOrMergePropertyDef(tref,ilPropDef,m)
  +                       cgbuf.mgbuf.AddOrMergePropertyDef(tref,ilPropDef,m)
   
                      // Add the special name flag for all properties                   
                      let mdef = { mdef.WithSpecialName with CustomAttrs= mkILCustomAttrs ((GenAttrs cenv eenv attrsAppliedToGetterOrSetter) @ sourceNameAttribs @ ilAttrsCompilerGenerated) } 
  
positive.code:     hasPreserveSigImplFlag, hasSynchronizedImplFlag, hasNoInliningImplFlag, hasAggressiveInliningImplFlag, attrs
      
  and GenMethodForBinding 
          cenv mgbuf eenv 
          (v:Val,mspec,access,paramInfos,retInfo) 
          (topValInfo,ctorThisValOpt,baseValOpt,tps,methodVars, body, returnTy) =
    
  
negative.code:                    // Emit the pseudo-property as an event, but not if its a private method impl
                     if mdef.Access <> ILMemberAccess.Private then 
                         let edef = GenEventForProperty cenv eenvForMeth mspec v ilAttrsThatGoOnPrimaryItem m returnTy 
                         cgbuf.mgbuf.AddEventDef(tref,edef)
                     // The method def is dropped on the floor here
                     
                 else
  