anchor.diff:  
   start(_Type, _Args) ->
       {ok, SupPid} = magicbeam_sup:start_link(),
  -    {ok, SupPid, case magicbeam_util:appenv(ssh, true) of
  +    {ok, SupPid, case magicbeam_util:appenv(ssh, false) of
                        false -> #state{};
                        true -> start_ssh()
                    end}.
  
positive.code:     end.
  
  ssh_file_path() ->
      P0 = case code:priv_dir(magicbeam) of
                 L when is_list(L) -> L;
                 {error, bad_name} ->
                     case os:getenv("HOME") of
                         L when is_list(L) -> L;
                         false -> "/tmp"
                     end
             end ++ "/.magicbeam/",
      Path = magicbeam_util:appenv(ssh_path, P0),
      case file:list_dir(Path) of
          {error, enoent} -> ssh_init_path(Path);
          {ok, _F} -> ssh_verify_path(Path)
      end.
  
  ssh_init_path(Path) ->
  
negative.code:     case file:make_dir(Path) of
          ok ->
              F("rsa"), F("dsa"),
              ?warn("please edit authorized_keys", [])
      end,
      Path.
  
  