anchor.diff:                           LoadingText=pretext mi.ReturnType.FSharpName loadingText
                            LazyMemberValue=delayed
                            Image=image
  -                         MemberInfo=mi }
  +                         MemberInfo=mi 
  +                         ExpressionInfo= getMemberExpressionInfo mi}
   
           let getMemberWatches bindingFlags = seq {
               let members = getMembers bindingFlags
  
positive.code:     Root { Text=text
             Children=children
             ValueInfo={Text=valueText; Value=value; Type=ty}
             Name=name }
negative.code:             DataMember { LoadingText=(pretext pi.PropertyType.FSharpName loadingText)
                           LazyMemberValue=delayed
                           Image=image
                           MemberInfo=pi 
                           ExpressionInfo= getMemberExpressionInfo pi }
  
          let getFieldWatch (fi:FieldInfo) =
              let pretext = sprintf "%s : %s%s" (getMemberName fi)
  