anchor.diff:      format("~s", [listify(Prompt)]),
       ?GET_INTERNAL_OPT(user_pid, Opts) ! {self(), user_password},
       receive
  -	Answer when is_list(Answer) ->
  +	Answer when is_list(Answer) or is_binary(Answer) ->
   	     case trim(Answer) of
   		 "" ->
   		     read_password(Prompt, Opts);
  
positive.code: 	y -> yes;
  	n -> no;
  
  	Answer when is_list(Answer) ->
  	    case trim(Answer) of
  		"y" -> yes;
  		"n" -> no;
  
negative.code:     format("~s", [listify(Prompt)]),
      ?GET_INTERNAL_OPT(user_pid, Opts) ! {self(), question},
      receive
  	Answer when is_list(Answer) or is_binary(Answer) ->
  	    unicode:characters_to_list(Answer)
      end.
  
  yes_no(Prompt, Opts) ->
  