anchor.diff:      {llvm_binary, Binary} ->
         {MFA, Binary}
     catch
  -    error:Error ->
  +    error:Error:StackTrace ->
         ?when_option(verbose, Opts, ?debug_untagged_msg("\n", [])),
  -      print_crash_message(MFA, Error),
  +      print_crash_message(MFA, Error, StackTrace),
         exit(Error)
     end.
   
  -print_crash_message(What, Error) ->
  +print_crash_message(What, Error, StackTrace) ->
     StackFun = fun(_,_,_) -> false end,
     FormatFun = fun (Term, _) -> io_lib:format("~p", [Term]) end,
  -  StackTrace = lib:format_stacktrace(1, erlang:get_stacktrace(),
  +  StackTrace = lib:format_stacktrace(1, StackTrace,
   				     StackFun, FormatFun),
     WhatS = case What of
   	    {M,F,A} -> io_lib:format("~w:~w/~w", [M,F,A]);
  
positive.code: 	    {Icode, WholeModule} = IcodeFun(Code, Opts),
  	    CompRes = compile_finish(Icode, WholeModule, Opts),
  	    compiler_return(CompRes, Parent)
  	  catch error:Error ->
  	      print_crash_message(Name, Error),
  	      exit(Error)
  	  end
        end),
  
negative.code: 	  TargetArch = get(hipe_target_arch),
  	  {ok, {TargetArch,Bin}}
        catch
  	error:Error:StackTrace ->
  	  {error,Error,StackTrace}
        end
    end.
  
  