anchor.diff:  	    Port
       end.
   
  -toerl_server(Parent,ToErl,Tempdir) ->
  -    Port = try_to_erl("\""++ToErl++"\" "++Tempdir++"/ 2>/dev/null", 8),
  +toerl_server(Parent, ToErl, TempDir) ->
  +    Port = try_to_erl("\""++ToErl++"\" "++TempDir++"/ 2>/dev/null", 8),
       case Port of
   	P when is_port(P) ->
   	    Parent ! {self(),started};
  
positive.code: rtstop({CPid, SPid, ToErl, Tempdir}) ->
      case stop_runerl_node(CPid) of
          {error,_} ->
              CPid2 =
                  start_toerl_server(ToErl,Tempdir),
              erase(getline_skipped),
              ok = get_and_put
                     (CPid2,
                      [{putline,[7]},
                       {sleep,
                        timeout(short)},
                       {putline,""},
                       {getline," -->"},
                       {putline,"s"},
                       {putline,"c"},
                       {putline,""}],1),
              stop_runerl_node(CPid2);
          _ ->
              ok
      end,
  
negative.code: 	{'DOWN', Ref, process, CPid, {error, Reason}} ->
  	    {error, Reason}
      after Timeout ->
  	    {error, toerl_server_timeout}
      end.
  
  get_progs() ->
      try
          do_get_progs()
      catch
          throw:Thrown ->
              {error, Thrown}
      end.
  
  do_get_progs() ->
      case os:type() of
  	{unix,freebsd} ->
  	    throw("Can't use run_erl on FreeBSD");
  	{unix,openbsd} ->
  	    throw("Can't use run_erl on OpenBSD");
  	{unix,_} ->
              RunErl = find_executable("run_erl"),
              ToErl = find_executable("to_erl"),
              Erl = find_executable("erl"),
              {RunErl, ToErl, Erl};
  	_ ->
  	    throw("Not a Unix OS")
      end.
  
  find_executable(Name) ->
      case os:find_executable(Name) of
          Prog when is_list(Prog) ->
              Prog;
          false ->
              throw("Could not find " ++ Name)
      end.
  
  create_tempdir() ->
  