anchor.diff:      case is_alive() of
   	true ->
   	    Node = pool:get_node(),
  -	    Pid = group:start(self(), {Node,shell,start,[]}),
  +	    Pid = group:start(self(), {Node,shell,start,[]}, remsh_opts(Node)),
   	    Gr = gr_add_cur(Gr0, Pid, {Node,shell,start,[]}),
   	    {retry, [], Gr};
   	false ->
  
positive.code: switch_cmd({r,Node,Shell}, Gr0) when is_atom(Node), is_atom(Shell) ->
      case is_alive() of
  	true ->
              Pid = group:start(self(), {Node,Shell,start,[]}),
              Gr = gr_add_cur(Gr0, Pid, {Node,Shell,start,[]}),
              {retry, [], Gr};
          false ->
  
negative.code:      {put_chars, unicode,<<"  r [node [shell]]  - start remote shell\n">>}] ++
          QuitReq ++
          [{put_chars, unicode,<<"  ? | h             - this message\n">>}].
  
  remsh_opts(Node) ->
      [{expand_fun,fun(B)-> rpc:call(Node,edlin_expand,expand,[B]) end}].
  
  -spec io_request(request(), prim_tty:state()) -> {noreply, prim_tty:state()} |
            {term(), reference(), prim_tty:state()}.
  