anchor.diff:  handle_cast({log, Pid, Level, Props}, State) when is_list(Props) ->
       Props2 = [{process, Pid}, {level, Level} | Props],
       NamedProps = add_index_details(Props2),
  -    BinProps = [{json_friendly(K), json_friendly(V)} || {K, V} <- NamedProps],
  +    BinProps = [{flatten(json_friendly(K)), json_friendly(V)} || {K, V} <- NamedProps],
       JSON2 =
       try
           JSON = jsx:encode(BinProps),
  
positive.code:                       "~p caught error calling Logger function:~n\t~p~n",
                        [?MODULE, Error])
      end.
  
  json_friendly(List) when is_list(List) ->
      case is_string(List) of
  
negative.code: add_index_details(Props) ->
      lists:foldl(fun add_index_details/2, [], Props).
  
  add_index_details({_Key = {Atom1, Atom2}, Pid}, NamedProps)
    when is_pid(Pid),
         is_atom(Atom1),
         is_atom(Atom2) ->
      Str1 = atom_to_list(Atom1),
      Str2 = atom_to_list(Atom2),
      Key = list_to_atom(Str1 ++ "_" ++ Str2),
      add_index_details({Key, Pid}, NamedProps);
  add_index_details({Key, Pid}, NamedProps) when is_pid(Pid) ->
      case erlmud_index:get(Pid) of
          undefined ->
  