anchor.diff:       {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()}.
  
positive.code:                         SloganEnv
                  end,
  
              RShellOpts = [{expand_fun,fun(B)-> rpc:call(RemoteNode,edlin_expand,expand,[B]) end}],
  
              RShell = {RemoteNode,shell,start,[]},
              Gr = gr_add_cur(State#state.groups,
                              group:start(self(), RShell, RShellOpts),
                              RShell),
  
              init_shell(State#state{ groups = Gr }, [Slogan,$\n]);
  
negative.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,[]}, remsh_opts(Node)),
              Gr = gr_add_cur(Gr0, Pid, {Node,Shell,start,[]}),
              {retry, [], Gr};
          false ->
  