anchor.diff:      format("~s", [listify(Prompt)]),
       proplists:get_value(user_pid, Opts) ! {self(), user_password},
       receive
  -	"" ->
  -	    read_password(Prompt, Opts);
  -	Answer ->
  -	    Answer
  +	Answer when is_list(Answer) ->
  +	     case trim(Answer) of
  +		 "" ->
  +		     read_password(Prompt, Opts);
  +		 Pwd ->
  +		     Pwd
  +	     end
       end.
   
   
  +format(Fmt, Args) ->
  +    io:format(Fmt, Args).
  +
  +%%%================================================================
   listify(A) when is_atom(A)   -> atom_to_list(A);
   listify(L) when is_list(L)   -> L;
   listify(B) when is_binary(B) -> binary_to_list(B).
  -
  -format(Fmt, Args) ->
  -    io:format(Fmt, Args).
   
   
   trim(Line) when is_list(Line) ->
  
positive.code: 	y -> yes;
  	n -> no;
  
  	Answer ->
  	    case trim(Answer) of
  		"y" -> yes;
  		"n" -> no;
  
negative.code:     format("~s", [listify(Prompt)]),
      proplists:get_value(user_pid, Ssh) ! {self(), question},
      receive
  	Answer when is_list(Answer) ->
  	    Answer
      end.
  
  