anchor.diff:                  {putdata, [$\^p]}, {expect, "echo[.]$"},
                   {putdata, [$\n]},
                   {expect, "echo\r\n"}
  -               ], [], [], "-kernel shell_history enabled " ++ mk_sh_param(Path)),
  +               ], [], [], mk_history_param(Path)),
   
       rtnode_check_logs("erlang.log.1",
                         "The shell history log file was corrupted and was repaired.",
  
positive.code: 
  %% Test that -remsh works
  remsh_basic(Config) when is_list(Config) ->
      TargetNode = start_node(?FUNCTION_NAME, []),
      TargetNodeStr = printed_atom(TargetNode),
      [_Name,Host] = string:split(atom_to_list(node()), "@"),
  
  
negative.code:                [{putline,"nodes()."},
                  {expect, "\\Q" ++ HostNodeStr ++ "\\E"}] ++
                 PostCmds,
             HostNode, " ", "-remsh " ++ TargetNodeStr),
  
      %% Test that remsh works without -sname.
      rtnode(PreCmds ++ PostCmds, [], " ", "-remsh " ++ TargetNodeStr),
  
      peer:stop(Peer),
  
      ok.
  
  