anchor.diff:  	    [{user, Username}];
   	{_, _}->
   	    [{user, Username}, {password, Password}]
  -    end ++ [{silently_accept_hosts, true}],
  +    end ++ [{silently_accept_hosts, true}] ++ SSHOpts,
       application:ensure_all_started(ssh),
  -    {ok, SSHConnRef} = ssh:connect(atom_to_list(Host), 22, SSHOptions),
  +    {ok, SSHConnRef} = ssh:connect(atom_to_list(Host), SSHPort, SSHOptions),
       {ok, SSHChannelId} = ssh_connection:session_channel(SSHConnRef, infinity),
       ssh_setenv(SSHConnRef, SSHChannelId, Env),
       ssh_connection:exec(SSHConnRef, SSHChannelId, get_cmd(Node, ErlFlags), infinity).
  -
   
   ssh_setenv(SSHConnRef, SSHChannelId, [{Var, Value} | Vars])
     when is_list(Var), is_list(Value) ->
  
positive.code: 
  -record(options, {username, password, boot_timeout, init_timeout,
  		  startup_timeout, startup_functions, monitor_master,
  		  kill_if_fail, erl_flags, env}).
  
  %%%-----------------------------------------------------------------
  %%% @spec start(Node) -> Result
  
negative.code:     #options{username=Username,
  	     password=Password,
  	     erl_flags=ErlFlags,
  	     env=Env,
         ssh_port=MaybeSSHPort,
         ssh_opts=SSHOpts} = Options,
      SSHPort = case MaybeSSHPort of
                  [] -> 22; % Use default SSH port
                  A  -> A
                end,
      SSHOptions = case {Username, Password} of
  	{[], []}->
  	    [];
  