anchor.diff:              | Some system ->
                   let _ = system.RegisterHierarchical comp nodeId entityId
                   match this.Correlations.TryGetValue entityId with
  -                | (true, correlation) -> correlation.Add system
  -                | (false, _) -> this.Correlations.Add (entityId, List [system :> 'w System])
  +                | (true, correlation) -> correlation.Add (system.Name, system)
  +                | (false, _) -> this.Correlations.Add (entityId, Dictionary.singleton StringComparer.Ordinal system.Name (system :> 'w System))
               | None -> failwith ("Could not find expected system '" + Unchecked.defaultof<'c>.TypeName + "'.")
   
           member this.UnregisterHierarchical<'c when 'c : struct and 'c :> 'c Component> nodeId entityId =
  
positive.code:             | Some system ->
                  let componentRef = system.RegisterCorrelated comp entityId this
                  match this.Correlations.TryGetValue entityId with
                  | (true, correlation) -> correlation.Add system
                  | (false, _) -> this.Correlations.Add (entityId, List [system :> 'w System])
                  componentRef
              | None -> failwith ("Could not find expected system '" + Unchecked.defaultof<'c>.TypeName + "'.")
  
          member this.UnregisterCorrelated<'c when 'c : struct and 'c :> 'c Component> entityId =
              match this.TryIndexSystem<'c, SystemCorrelated<'c, 'w>> () with
              | Some system ->
                  let result = system.UnregisterCorrelated entityId this
                  if result then
                      match this.Correlations.TryGetValue entityId with
                      | (true, correlation) -> correlation.Remove system |> ignore<bool>
                      | (false, _) -> ()
                  result
              | None -> failwith ("Could not find expected system '" + Unchecked.defaultof<'c>.TypeName + "'.")
  
          member this.JunctionPlus<'c when 'c : struct and 'c :> 'c Component> (comp : 'c) (index : int) (componentsObj : obj) (componentsBufferedObj : obj) =
  
negative.code:             | Some system ->
                  let _ = system.RegisterMultiplexed comp simplexName entityId
                  match this.Correlations.TryGetValue entityId with
                  | (true, correlation) -> correlation.Add (system.Name, system)
                  | (false, _) -> this.Correlations.Add (entityId, Dictionary.singleton StringComparer.Ordinal system.Name (system :> 'w System))
              | None -> failwith ("Could not find expected system '" + Unchecked.defaultof<'c>.TypeName + "'.")
  
          member this.UnregisterMultiplexed<'c when 'c : struct and 'c :> 'c Component> simplexName entityId =
  