anchor.diff:  start_service(Options) ->
       try
           {ok, StartOptions} = start_options(Options),
  -        {ok, OpenOptions}  = open_options(Options),
  -        {ok, SocketOptions}  = socket_options(Options),
           case ftp_sup:start_child([[[{client, self()} | StartOptions], []]]) of
               {ok, Pid} ->
  -                call(Pid, {open, ip_comm, OpenOptions, SocketOptions}, plain);
  +                call(Pid, {open, ip_comm, Options}, plain);
               Error1 ->
                   Error1
           end
  
positive.code: 
  tls_options(Options) ->
      %% Options will be validated by ssl application
      proplists:get_value(tls, Options, undefined).
  
  validate_options([], [], Acc) ->
      {ok, lists:reverse(Acc)};
  
negative.code:                     {stop, normal, State2#state{client = undefined}}
              end
      end;
  
  handle_call({_, {user, User, Password}}, From,
              #state{csock = CSock} = State) when (CSock =/= undefined) ->
  