anchor.diff:  
              match item with
              | Item.ModuleOrNamespaces _ ->
  -               let ilTyconNames =
  -                  nenv.TyconsByAccessNames(OpenQualified).Values
  -                  |> List.choose (fun tyconRef -> if tyconRef.IsILTycon then Some tyconRef.DisplayName else None)
  -                  |> Set.ofList
  +               let moduleOrNamespaceRefs =
  +                   nenv.ModulesAndNamespaces OpenQualified
  +                   |> NameMultiMap.range
                  
  -               for ns in NameMultiMap.range (nenv.ModulesAndNamespaces(OpenQualified)) do
  -                   let demangledName = ns.DemangledModuleOrNamespaceName
  -                   if IsInterestingModuleName demangledName && notFakeContainerModule ilTyconNames demangledName
  -                      && EntityRefContainsSomethingAccessible ncenv m ad ns
  -                      && not (IsTyconUnseen ad g ncenv.amap m ns)
  -                   then yield ItemForModuleOrNamespaceRef ns
  +               if not (isNil moduleOrNamespaceRefs) then
  +                   let ilTyconNames = getFakeContainerModulesFromTyconRefs (nenv.TyconsByAccessNames(OpenQualified).Values)
  +               
  +                   for ns in moduleOrNamespaceRefs do
  +                       let demangledName = ns.DemangledModuleOrNamespaceName
  +                       if IsInterestingModuleName demangledName && notFakeContainerModule ilTyconNames demangledName
  +                          && EntityRefContainsSomethingAccessible ncenv m ad ns
  +                          && not (IsTyconUnseen ad g ncenv.amap m ns)
  +                       then yield ItemForModuleOrNamespaceRef ns
              
              | Item.Types _ ->
                  for tcref in nenv.TyconsByDemangledNameAndArity(OpenQualified).Values do
  
positive.code:              mty.TypeDefinitions
               |> List.filter (fun tcref -> not (tcref.LogicalName.Contains(",")))
               |> List.filter (fun tycon -> not (IsTyconUnseen ad g ncenv.amap m (modref.NestedTyconRef tycon)))
  
           let ilTyconNames = 
               mty.TypesByAccessNames.Values
               |> List.choose (fun (tycon:Tycon) -> if tycon.IsILTycon then Some tycon.DisplayName else None)
               |> Set.ofList
  
           // Collect up the accessible values in the module, excluding the members
           (mty.AllValsAndMembers
  
negative.code:           |> List.filter (IsTyconUnseen ad g ncenv.amap m >> not)
            |> List.map Item.ExnCase)
  
         @ accessibleSubModules
  
      // Get all the types and .NET constructor groups accessible from here 
         @ (tycons 
  