anchor.diff:        found
       let rec registerEntity (entity: FSharpEntity) =
           let newName = nameGen (sprintf "%s.%s" entity.AccessPath entity.CompiledName)
  -        registeredEntities.Add(entity, newName)
  +        registeredEntities.[entity] <- newName
           let xmlsig = getXmlDocSigForType entity
           if (not (System.String.IsNullOrEmpty xmlsig)) then
               assert (xmlsig.StartsWith("T:"))
  -            entityLookup.Add(xmlsig.Substring(2), entity)
  +            entityLookup.[xmlsig.Substring(2)] <- entity
           for nested in entity.NestedEntities do registerEntity nested
   
       let getUrl (entity:FSharpEntity) =
  
positive.code:     let modules, types = readModulesAndTypes ctx entities 
      Namespace.Create(ns, modules, types)
  
    let readAssembly (assembly:FSharpAssembly, publicOnly, xmlFile:string, sourceFolderRepo, urlRangeHighlight, markDownComments) =
      let assemblyName = AssemblyName(assembly.QualifiedName)
      
      // Read in the supplied XML file, map its name attributes to document text 
  
negative.code:     let removeParen (memberName:string) = 
          let firstParen = memberName.IndexOf("(")
          if firstParen > 0 then memberName.Substring(0, firstParen) else memberName
      let tryGetTypeFromMemberName (memberName : string) =
          let sub = removeParen memberName
          let lastPeriod = sub.LastIndexOf(".")
          if lastPeriod > 0 then
              Some (memberName.Substring(0, lastPeriod))
          else None
      let getNoNamespaceMemberName keepParts (memberNameNoParen:string) =
          let splits = memberNameNoParen.Split([|'.'|])
          let noNamespaceParts =
  