anchor.diff:          [] ->
               {ok, NewConfig};
           Ws ->
  -            print_warnings(Ws),
  +            print_warnings(Ws, basename),
               ?FAIL
       end.
   
  
positive.code:         [] ->
              {ok, NewConfig};
          Ws ->
              print_warnings(Ws),
              ?FAIL
      end.
  
  
negative.code:             %% As plt_build may raise warnings but still successfully
              %% create the PLT, we cannot interpret this as failure,
              %% and therefore all we can do is report warnings.
              print_warnings(Ws, basename)
      end.
  
  'check-plt'(Config, AppFile) ->
  