revert R_running_as_main_program fix