anchor.diff:      #options{username=Username,
   	     password=Password,
   	     erl_flags=ErlFlags,
  -	     env=Env} = Options,
  +	     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
   	{[], []}->
   	    [];
  
positive.code:     KillIfFail = get_option_value(kill_if_fail, Options, true),
      ErlFlags = get_option_value(erl_flags, Options, []),
      EnvVars = get_option_value(env, 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}.
  
  % send a message when slave node is started
  % @hidden
  
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
  