anchor.diff:      Host1 = host_name(Host),
       case lists:member(Host1, HostList) andalso key_match(Key, KeyType) of
   	true when KeyToMatch == Key ->
  -	    Key;
  +	    {ok,Key};
   	_ ->
   	    lookup_host_key_fd(Fd, KeyToMatch, Host, KeyType)
       end.
  
positive.code:     case io:get_line(Fd, '') of
  	eof ->
  	    {error, not_found};
  	Line ->
  	    case ssh_decode_line(Line, auth_keys) of
  		[{AuthKey, _}] ->
  
negative.code: 	{ok, Fd} ->
  	    Res = lookup_host_key_fd(Fd, KeyToMatch, Host, Alg),
  	    file:close(Fd),
  	    Res;
  	{error, enoent} ->
  	    {error, not_found};
  	Error ->
  	    Error
      end.
  
  identity_key_filename('ssh-dss'            ) -> "id_dsa";
  