anchor.diff:      KillIfFail = get_option_value(kill_if_fail, Options, true),
       ErlFlags = get_option_value(erl_flags, Options, []),
       EnvVars = get_option_value(env, Options, []),
  +    SSHPort = get_option_value(ssh_port, Options, []),
  +    SSHOpts = get_option_value(ssh_opts, Options, []),
       #options{username=UserName, password=Password,
   	     boot_timeout=BootTimeout, init_timeout=InitTimeout,
   	     startup_timeout=StartupTimeout, startup_functions=StartupFunctions,
   	     monitor_master=Monitor, kill_if_fail=KillIfFail,
  -	     erl_flags=ErlFlags, env=EnvVars}.
  +	     erl_flags=ErlFlags, env=EnvVars, ssh_port=SSHPort, ssh_opts=SSHOpts}.
   
   % send a message when slave node is started
   % @hidden
  
positive.code:     #options{username=Username,
  	     password=Password,
  	     erl_flags=ErlFlags,
  	     env=Env} = Options,
      SSHOptions = case {Username, Password} of
  	{[], []}->
  	    [];
  
negative.code: 
  -record(options, {username, password, boot_timeout, init_timeout,
  		  startup_timeout, startup_functions, monitor_master,
  		  kill_if_fail, erl_flags, env, ssh_port, ssh_opts}).
  
  %%%-----------------------------------------------------------------
  %%% @spec start(Node) -> Result
  