anchor.diff:          match typ.BaseType with
           | Some baseType ->
               //TODO: would be better to reuse instead of reparsing the base type xml docs
  -            let cmds, comment = readCommentAndCommands ctx baseType.NamedEntity.XmlDocSig
  +            let cmds, comment = readCommentAndCommands ctx baseType.TypeDefinition.XmlDocSig
               match cmds with
  -            | Command "omit" _ -> yield! getMembers baseType.NamedEntity
  +            | Command "omit" _ -> yield! getMembers baseType.TypeDefinition
               | _ -> ()
           | None -> ()
         ]
  
positive.code:     let signature =
        match argInfos with
        | [] -> retType
        | [[x]] when v.IsGetterMethod && x.Name.IsNone && x.Type.NamedEntity.XmlDocSig = "T:Microsoft.FSharp.Core.unit" -> retType
        | _  -> (formatArgsUsage true v argInfos) + " -> " + retType
  
      let usage = 
        match argInfos with
        | [[x]] when v.IsGetterMethod && x.Name.IsNone && x.Type.NamedEntity.XmlDocSig = "T:Microsoft.FSharp.Core.unit" -> ""
        | _  -> formatArgsUsage false v argInfos
      
      let buildShortUsage length = 
  
negative.code:     let nm = 
        match arg.Name with 
        | None -> 
            if arg.Type.HasTypeDefinition && arg.Type.TypeDefinition.XmlDocSig = "T:Microsoft.FSharp.Core.unit" then "()" 
            else "arg" + string i 
        | Some nm -> nm
      // Detect an optional argument 
  