anchor.diff:  
   %% Used by client
   is_host_key(Key, PeerName, Algorithm, Opts) ->
  -    case lookup_host_key(PeerName, Algorithm, Opts) of
  +    case lookup_host_key(Key, PeerName, Algorithm, Opts) of
   	{ok, Key} ->
   	    true;
   	_ ->
  
positive.code: 	    []
      end.
  
  handle_host(Fd, Host, HostList, Key, KeyType) ->
      Host1 = host_name(Host),
      case lists:member(Host1, HostList) and key_match(Key, KeyType) of
  	true ->
  	    Key;
  	false ->
  	    lookup_host_key_fd(Fd, Host, KeyType)
      end.
  
  host_name(Atom) when is_atom(Atom) ->
  
negative.code: %% return {ok, Key(s)} or {error, not_found}
  %%
  
  lookup_host_key(KeyToMatch, Host, Alg, Opts) ->
      Host1 = replace_localhost(Host),
      do_lookup_host_key(KeyToMatch, Host1, Alg, Opts).
  	    
  
  add_host_key(Host, Key, Opts) ->
  